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The COBOL Language 



The programmer's responsibility in preparing a cobol 
program is to: 

1. Identify the program. 

2. Specify the features and devices of the ibm 1401, 
1440, or 1460 Data Processing System that will be 
used to compile and execute the resultant machine- 
language object program. 

3. Describe the data to be processed. 

4. State the procedure to process the data. 

The programmer uses the characters, words, and ex- 
pressions that make up the cobol language. He writes 
them according to a standard reference format that is 
outlined on the cobol program sheet (Form X28-1464). 
This standard coding sheet is used with all ibm cobol 
systems to record the source program. 

The cobol source-program card deck is punched 
from these coding sheets. These cards make up the 
cobol source-program card input to the cobol proc- 
essor. 



Machine Requirements 

To process a cobol source program, the following min- 
imum machine configurations are specified. 
An ibm 1401 system with: 

4,000 positions of core storage 

Advanced Programming Feature 

High-Low-Equal Compare Feature 

One ibm 1311 Disk Storage Drive with an ibm 1316 
Disk Pack 

One ibm 1402 Card Read-Punch 

One ibm 1403 Printer. 
An ibm 1440 system with: 

4,000 positions of core storage 

Indexing and Store Address Register Feature 

One ibm 1311 Disk Storage Drive with an ibm 1316 
Disk Pack 

One ibm 1442 Card Reader 

One ibm 1443 Printer. 

An ibm 1440 system with: 
8,000 positions of core storage 
Indexing and Store Address Register Feature 
One ibm 1301 Disk Storage 
One ibm 1442 Card Reader 
One ibm 1443 Printer 



An ibm 1460 system with: 

8,000 positions of core storage 

Indexing and Store Address Register Feature 

One ibm 1311 Disk Storage Drive with an ibm 1316 

Disk Pack , or one ibm 1301 Disk Storage 
One ibm 1402 Card Read-Punch 
One ibm 1403 Printer. 

The system on which the object program is to be 
executed must have: 

1. A card reader or a disk file to load the object pro- 
gram resulting from the Autocoder assembly. 

2. Sufficient core storage to contain the program gener- 
ated by the cobol processor. If the object program 
requires more than the available core-storage ca- 
pacity, either the program must be executed in sec- 
tions (overlays) or the job must be divided into 
multiple runs. This requirement is a significant 
consideration when planning to implement cobol 
on a system with 4,000 positions of core storage. 

3. The input and output devices defined in the file- 
control paragraph. 

4. Sense switches if they are referred to in the special- 
names paragraph. 

5. The expanded print-edit feature when any of the 
following cobol editing functions are used: 

a. High-order CR or minus signs and high-order 
DB or plus signs. 

b. Floating plus and minus signs, and floating dol- 
lar signs. 

c. Check protection ( asterisk fill ) . 

d. Decimal suppression for blank or zero fields. 



COBOL Language Notation 

The entire cobol language is described in detail in 
the SRL publication COBOL General Information 
Manual (F28-8053). COBOL (on Disk) Specifications 
for IBM 1401, 1440, and 1460 contains additional infor- 
mation that enables the programmer to apply the 
cobol language to the ibm 1401, 1440, and 1460. 

Throughout this publication, basic formats are pre- 
scribed for the various verbs, clauses, entries, and other 
essential elements of the cobol language. These are 
generalized formats intended to guide the programmer 
in writing his own statements. These rules of notation 
must be followed: 



1. All words printed entirely in capital letters are 
cobol words. They have preassigned meanings in 
the cobol system. For example: roENTiFiCATiON 
division. When the cobol processor sees these two 
words, it notes the beginning of the identification 
of the program. 

2. All underlined words are required unless the por- 
tion of the format containing them is enclosed in 
square brackets. Square brackets [ ] indicate an 
optional portion of a cobol format. Underlined 
words are key words. If any key word is missing 
or misspelled, it is considered an error in the pro- 
gram. For example: 

SEEK fOe-name RECORD 

is the cobol format for the seek verb. The program- 
mer may write either of the following entries as- 
suming that payroll is the file-name. 

SEEK PAYROLL RECORD 
SEEK PAYROLL 

seek is a key word and must be included. How- 
ever, record is an optional word and may be omit- 
ted if the user so chooses. 

3. All cobol words not underlined may be included 
or omitted at the option of the programmer. These 
words, called optional words, are used only for 
the sake of readability. Misspelling constitutes an 
error. 

4. All lower-case words represent information that 
the programmer must supply. The nature of the 
information required is indicated. In most instances, 
the programmer must provide an appropriate data- 
name, procedure-name, or literal. For example, 
file-description format is 

FD file-name 
The programmer writes 

FD ACCOUNTS-RECEIVABLE 

accounts-receivable has been used as the file- 
name for this file-description entry. 



5. Material enclosed in square backets can be used 
or omitted as required by the program. For exam- 
ple, the format for the perform verb is 

PERFORM procedure-name-1 [ THRU procedure-name-2\ 

The programmer can write one of the following 
statements: 

perform gross pay 

perform gross pay thru net pay 
The first statement can be used to specify calcula- 
tion of gross pay. The second can be used to calcu- 
late gross pay and then net pay. 

6. Braces mean that one and only one of the enclosed 
items must be chosen. Other items are to be omit- 
ted. For example: 

t au^t prrnpnrci J ARE i \ STANDARD ) 
LABEL RECORD[Sl j IS \ j OMITTED \ 

The statement label records are omitted is cor- 
rect. 

7. Punctuation, where shown, is essential. The pro- 
grammer can insert other punctuation in accord- 
ance with the rules outlined in this publication. 

8. Special characters, such as the equal sign, are es- 
sential where shown, although they may not be 
underlined. 

9. In certain cases, a succession of operands or other 
elements may be used in the same statement. In 
such a case, the possibility is indicated by the use 
of three dots following the item affected. The dots 
apply to the last complete element preceding them. 
Thus, if a group of operands and key words is en- 
closed within brackets and the closing bracket is 
followed by three dots, the entire group (not merely 
the last operand) must be repeated if any repeti- 
tion is required. 

10. Restrictions and comments on each basic format 
will be found in this publication. The formats 
should not be used without reading the accom- 
panying text. 
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IBM 1401, 1440, and 1460 COBOL Programming 



The cobol source program has four major divisions. 
Each division has its own set of statements, which are 
written according to the rules established for the cobol 
language, as described in the IBM COBOL General In- 
formation Manual (F28-8053). These division-state- 
ment sets must be arranged for presentation to the 
1401, 1440, and 1460 cobol processor in this order: 

IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
PROCEDURE DIVISION. 

The identification division entries are written as 
described in the D3M cobol General Information 
Manual. 



Environment Division 

In this part of the cobol source program, the program- 
mer specifies the physical characteristics of the par- 
ticular ibm 1401, 1440, and/or 1460 system (s) to be 
used to compile and to execute the object program. 

The environment division has two major sections, 
each of which has a fixed section name: configura- 
tion and input-output. 

The 1401, 1440, and 1460 cobol presentation format 
for this is: 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
SPECIAL-NAMES. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-O-CONTROL. 



condition-names to standard names for the status of 
actual machine switches, and Autocoder-names to 
COBOL-names. 

Source-Computer Paragraph 

Reference Format 



SOURCE-COMPUTER. 



/ IBM-1401 n 
•J IBM-1440 I 
I IBM-1460 J 



This statement is required in all 1401, 1440, and 1460 
cobol source programs. 



Object-Computer Paragraph 

Reference Format 



OBJECT-COMPUTER. 



/ IBM-1401 -v 
\ IBM-1440 V 
I IBM-1460 J 



( 4000 s ) 

\ 12000 \ CHARACTERS 
1 16000 ) 

MEMORY SIZE < ADDRESS integer j ™g UGH I 



\ 



4000 

8000 

12O0O 

16000 



[ no-print-storage ] 
[ no-multiply-divide ] 
[ no-direct-seek ] 
[ no-overlap ] 
[ no-console-printer ] 



Configuration Section 

The configuration section has three paragraphs. The 
source-computer paragraph names the system that 
will compile the object program from the cobol source 
statements. 

The object-computer paragraph names and de- 
scribes the system that will execute the object program. 

The special-names paragraph equates: mnemonic 
names to standard names for actual machine devices, 



The object-computer paragraph describes the com- 
puter that will execute the object program. The 
object-computer, ibm-1401 (or 1440 or 1460) statement 
without optional clauses defines an ibm 1401 (or 1440 
or 1460) with 16,000 positions of core storage, the proc- 
essing overlap feature (1401 and 1460 systems only), 
the input/output units required for the files defined in 
the file-control paragraph, the direct-seek feature, 
the multiply /divide feature, and print storage. If the 
object machine has fewer than 16,000 positions of core 



storage, and/or if any of these features are not present 
in the object machine, the appropriate clause must be 
included in the source program. 



| 4000 \ 

12000 ( CHARACTERS 
' 16000 ) 



MEMORY SIZE 



ADDRESS integer j ^g^g UGH 

( 4000 } 
J 8000 ( 
\ 12000 ( 
\ 16000 ) 



This clause tells the processor how many positions 
of core storage are available in the object machine and 
the starting core-storage address of the object program. 

If the programmer wishes the program to start at any 
location other than 334, and if a printer is not to be 
used as an output device, he can use the address in- 
teger thru option and write the numerical address of 
this location in the integer portion. This number should 
not be less than 334. If a printer is to be used as an out- 
put device, the program starts at location 469. If the 
programmer wishes the program to start at any loca- 
tion other than 469, and if a printer is to be used as an 
output device, the integer portion of the address in- 
teger thru option must be greater than 469. 

If the memory size statement is omitted from the 
cobol source program, the processor assumes that the 
object computer has 16,000 positions and starts the 
object program at core-storage location 334. 

[ no-print-storage ] 

[ no-multiply-divide ] 

[ no-direct-seek ] 

[ no-overlap ] 

[ no-console-printer ] . 

These clauses tell the processor that the object ma- 
chine is not equipped with certain special features. 

If either no-print-storage or no-direct-seek is speci- 
fied, the IOCS generated instructions will not use those 
machine features. 

If no-multiply-divide is specified, a subroutine will 
be included in and used by the object program when- 
ever compute is used with *, /, or **, or whenever 
multiply or divide is used. If the no-multiply-divide 
clause is not specified, the multiply/divide special 
feature will be used by the object program. 

The no-overlap option must be included only if the 
object computer is an ibm 1401 or ibm 1460 that does 
not have the processing overlap feature. 



If the system is 1440 or 1460, and if an ibm 1447 is 
included in the system, the no-console-printer option 
will cause a STOP-literal statement to display the literal 
itself or its address in the B-address register. If this 
clause is omitted, the literal will be displayed on the 
console printer. 

Special-Names Paragraph 

Reference Format 

SPECIAL-NAMES. 



I device-name IS mnemonic- 



name 



[ 



P device-name IS mnemonic-name j 



[ 



switch-name j oFF \ STATUS IS condition-name 

{ OFF } 
I I ON C STATUS IS condition-name 

I switch-name • • 

autocoder -name IS cobol -name 
I autocoder -name . . II. 



fl 



] 



This paragraph equates: mnemonic names to the 
standard names for actual machine devices, condition- 
names to the status of actual machine switches, and 
Autocoder-names to COBOL-names. 



Device-Names 

The standard device-names for the ibm 1401, 1440, and 
1460 systems indicate to the cobol processor which de- 
vices are available in the object computer. They are 
written with the mnemonic-name the programmer has 
used to refer to them in the procedure division. This is 
a list of device-names: 



Device-Name 


Actual Device 


1402-R, n 


1402 Card Reader 


1442-R, n 


1442 Card Reader 


1402-P, n 


1402 Card Punch 


1442-P, n 


1442 Card Punch 


1444-P 


1444 Card Punch 


1403-P 


1403 Printer 


1443-P 


1443 Printer 


1403-CT, n 


1403 Carriage Tape 


1443-CT, n 


1443 Carriage Tape 


1447-CP 


1447 Console Printer 



1401 and 1460 Device-Names. For the 1402-R and 
1402-P device-names, n is a digit specifying the stacker 
into which a card is to fall. For the card reader it must 
be a (normal read), 1 (read select), or 2 (common). 
For the card punch it must be (normal punch), 4 
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(punch select), or 8 (common). If one of the digits is 
not included with a 1402 device-name, the processor 
assumes that the stacker desired is 1 for a read oper- 
ation and 4 for a punch operation. If n is coded, there 
must be a space between it and the device-name as in 
1402-R, 1. 

1440 Device-Names. For the 1442-R and 1442-P, n 
is the digit (1 or 2) that specifies the unit (1442 
Unit 1 or 1442 Unit 2) of the card read-punch to 
which the device-name is assigned. If n is not specified, 
the processor will assume Unit 1. If n is coded, there 
must be a space between it and the device-name as in 

1442-R, 1. 1444-P refers to the 1444 card punch unit 3. 

For all systems, the printer is the assumed stand- 
ard output unit for use with the display verb. The 
card reader is the standard input device for use with 
the accept verb. However, if the ibm 1447 Console 
Printer is equated with a special name, that unit may 
be specified as an input or output unit (or both) with 
the accept and display verbs. 

For the carriage tape device-name, n specifies which 
channel in the carriage tape terminates a particular 
carriage skip. It can be any number from 1 to 12. This 
name is used with the advancing option of the write 
verb (see Procedure Division). If n is not coded, the 
processor assumes that the skip is to channel 1. If n is 
coded, there must be a space between it and the 
device-name as in 1443-CT, 3 or 1403-CT, 3. 

Note: Punched-card input and output devices should 
not be used with both the display and write verbs in 
the same program. The same restriction applies to 
using these devices with both the accept and read 
verbs. 

[_ autocoder -name IS cobol -name~\ 



A symbol used as an Autocoder-name must meet 
these requirements: 

1. It must be five characters long. 

2. It must begin with an alphabetic character. 

3. It cannot contain a special character. 

4. A blank cannot appear within the symbol. 

The COBOL-name must be a non-qualified pro- 
cedure-name or data-name. It cannot be a condition- 
name. 

Switch-Names and Conditions 

General Description: A switch-name is written fol- 
lowed by the condition-names used to identify on 
status and off status. 

The standard switch-names are: 

Switch-Name Indicates 

1403-P-CB Printer Carriage Busy 

1443-P-CB Printer Carriage Busy 

1403-P-C9 Sense Carriage Tape Channel 9 

1443-P-C9 Sense Carriage Tape Channel 9 

1403-P-CV Sense Carriage Tape Channel 12 ( Overflow) 

1443-P-CV Sense Carriage Tape Channel 12 ( Overflow) 

1460-SS x Sense Switch 

1401-SS x Sense Switch 

1440-SS x Sense Switch 

The x in the sense switch is the actual letter that 
represents a specific 1401, 1440, or 1460 sense switch. 
This must be a letter within the range A-G. There 
must be at least one space between the switch desig- 
nation and the letter used for x. For example, 1401- 
SS G. 

The status of 1401, 1440, and 1460 switches may be 
interrogated by expressions in the procedure divi- 
sion that use condition-names. 
Examples: Figures 2 and 3 show examples of special- 
names paragraphs. 



General Description: This statement enables the pro- 
grammer to write Autocoder statements that refer to 
cobol data-names and procedure-names (see enter). 
If an Autocoder-name is used to refer to an area 
that has been defined by a cobol statement, the 
cobol name must be equated to the Autocoder- 
name. 

Example: If TOTALS is a COBOL-name used to define 
a cobol area and the symbol TOTLS is used in an 
Autocoder statement to refer to the same area, the 
statement shown in Figure 1 must appear in the 
special-names paragraph of the cobol program. 
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Figure 1. Equating an Autocoder-Name to a COBOL-Name 



Input-Output Section 

The input-output section has two paragraphs. 

The file-control paragraph names each file, identi- 
fies its input or output medium, and assigns it to one 
or more input/output devices. 

File-Control Paragraph 

Reference Format 

FILE-CONTROL . SELECT file-name -1 
ASSIGN TO device-name 

[ RESERVE j NO | ALTERNATE AREA[S]1. 
[ select 1 
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Figure 2. 1401 and 1460 special-names Paragraph 
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Figure 3. 1440 special-names Paragraph 



This paragraph names each file used in the source 
program, identifies its media, and assigns it to an input 
or output device. It also permits the programmer of 
1401 and 1460 systems to specify an alternate input/ 
output area for magnetic tape files if the 1401 or 1460 
has the processing-overlap feature. 

SELECT file-name-1 

Each file to be processed by the read or write verbs 
in the procedure division must be named in a select 
file-name entry. This file-name must be unique within 
the source program and must be described by a file- 
description entry in the data division of the source 
program. 

Example: Figure 4 shows a sample select file-name 
entry- 



ASSIGN TO device-name-1 




Figure 4. select 
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This clause is used to assign a file to an input or 
output device-name. The device-names that are valid 
in the file-control paragraph are: 
Device-Name Actual Device 

1402-R, n 1402 Card Reader 

1442-R, n 1442 Card Reader 

1402-P, n 1402 Card Punch 

1442-P, n 1442 Card Punch 

1444-P 1444 Card Punch 

1403-P 1403 Printer 

1443-P 1443 Printer 

1311-D, d 1311 Disk Storage Drive 

1301-D, d 1301 Disk Storage 

TAPE(S) u, a 729 or 7330 or 7335 Magnetic Tape Unit 

Punched-Card Device-Names 

The punched-card devices that are valid in the file- 
control paragraph are the card reader, the card 
punch, and the printer. 

For the 1402-R and 1402-P device-names, n is a 
digit specifying the stacker into which a card is to fall. 
For the card reader it must be a (normal read), 1 
(read select), or 2 (common). For the card punch it 



must be (normal punch), 4 (punch select), or 8 (com- 
mon). If one of the digits is not included with a 1402 
device-name, the processor assumes that the stacker 
desired is 1 for a read operation and 4 for a punch 
operation. If n is coded, there must be a space between 
it and the device-name as in 1402-R, 1. 

For the 1442-R and 1442-P device-names, n is a digit 
(1 or 2) specifying the unit in which a file is to be 
placed. If n is not coded, the processor assumes unit 1. 
If n is coded, there must be a space between it and the 
device-name as in 1442-R, 1. 

Disk-Storage Device-Names 

For disk files, 1311-D or 1301-D is the device-name. 
It indicates that the file is to be assigned to either a 1301 
or a 1311. For both the 1301 and 1311, the d specifies 
the particular unit and can be any digit from to 4. 
There must be a space between the comma and the 
digit. 

Example: Figure 5 shows an assign statement for a 
1311 disk file. 
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Figure 5. assign Disk-File 

Magnetic-Tape Device-Names 

For magnetic-tape files, tape(s) is the device-name. 
It indicates that the file is to be assigned to a tape unit. 
The u specifies the particular unit to be assigned. It can 
be any digit from 1 to 6 with the 1401 or 1460. For the 
1440, u can be 1 or 2. The a specifies that an alternate 
unit is to be assigned. It can be any digit from 1 to 6 
with the 1401 or 1460, but should not be the same digit 
that is used for u. For the 1440, a can be 1 or 2, but 
should not be the same digit that is used for u. The 
same tape unit (or alternate tape unit) should not be 
assigned more than once in a cobol source program. 
There must be a space between u and a. 

Example: Figure 6 shows an assign statement for a 
tape file. 
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Figure 6. assign Tape-File 



RESERVE 



)no| 



ALTERNATE AREA[S1 . 



This statement reserves one or no alternate area for 
a magnetic-tape file. One alternate area may be speci- 



fied only if the object machine has the processing over- 
lap feature. If this clause is missing from the source 
program, the processor reserves no alternate area. 

Example: Figure 7 shows a sample reserve state- 
ment. 
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Figure 7. reserve 

Note. In the special-names paragraph and the file- 
control paragraph, two unit-record files cannot be assigned 
to the same device. For example, if the punch is defined in the 
special-names paragraph, it cannot be defined again in the 
special-names paragraph, nor can it be defined in the file- 
control paragraph. 

I-O-Control Paragraph 

Reference Format 

I-O-CONTROL. 



J 



TYPE-A-LABEL 



APPLY j TYPE-B-LABEL [ ON file-name f*APPLY . . .1 . 
' TYPE-C-LABEL > J 

The i-o-control paragraph is used to specify the 
type of the label records for tape files. 

Type- A, -B, and -C label records contain 120, 80, 
and 84 characters, respectively. The file-name refers to 
the file-name assigned to the file in the associated FD 
entry. 

Example: Figure 8 shows a sample apply statement. 



i 

7 


A 

8 


|B 

!l2 16 20 24 28 


32 36 40 44 


48 






, AJ>J>d.\K ir,yj>i£-,A-,LutJS,/rJ., 


,y,//, ,JM,v,aiiMjtis;7-,/z ■ , 






i l l i l l l 1 1 1 i 1 l 1 l i i 1 l 1 I I I Ill 



Figure 8. apply 



Deferred Elements of the Environment Division 

Several elements described in the cobol General In- 
formation Manual are not contained in this cobol proc- 
essor. These should not be coded in the environment 
division entries for a 1401, 1440, or 1460 cobol pro- 
gram. They are stated here for reference. 

1. The optional option of the file-control para- 
graph. 

2. The multiple reel option in the file-control para- 
graph and all other features that provide for auto- 
matic assignments of tape units for a file. 

3. The renaming option of the file-control para- 



graph. 
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4. The entire copy option. (The library tape for the 
1401 cobol processor does not presently support 
the copy feature.) 

4. The rerun option of the i-o-control paragraph. 

Not Applicable 

The assign option of the object-computer paragraph. 

Data Division 

Each file, record, and data item is described within 
a program by writing data-description entries in the 
source program. Every data-name referred to in the 
procedure division except figurative constants must be 
described in the data division. Items and records are 
described by record-description entries, and files are 
described by file-description entries (MD and FD en- 
tries). 

Detailed information about record formats is pre- 
sented in the SRL publications Input/Output Control 
System (on Disk) for IBM 1401/1460: Specifications 
(C24-1489) and Input/Output Control System for IBM 
1440: Specifications (C24-3011). General information is 
presented in the following sections. 

Record Formats for Tape Files 

Form-l Records 

Form-1 tape records are fixed length, unblocked, with 
or without record marks. Fixed-length implies that all 
records in the file have the same number of characters. 
Unblocked means that one data record is contained in 
one tape record. A record mark (H=) is a special char- 
acter written at the end of a data record to indicate 
that the preceding character is the last record charac- 
ter. If input records are form-1 but are to be written 
as output in form-2 or form-4, they should have record 
marks. Otherwise the use of record marks is optional. 
Tape records are physically separated by a section 
of blank tape called an Interrecord Gap (IRG). Fig- 
ures 9 and 10 show examples of form-1 records with 
and without record marks. 



Form-2 Records 

Form-2 records are fixed length, blocked, with record 
marks, and with padding of short-length blocks. 
Blocked means that more than one data record is con- 
tained in one tape record (two or more data records 
occupy the space between two interrecord gaps). 
Record marks must be used to separate the data rec- 
ords. 

Padding means that nines (9's) are used to fill the 
last block for a file if there are not sufficient data 
records to fill it. Thus, a fixed-length block will always 
contain the same number of characters, but a padded 
record(s) will be substituted if there are not enough 
data records to fill the last block. 

Figure 11 shows fixed-length, blocked tape records 
with record marks and padding. Each block contains 
four records. 

Form-3 Records 

Form-3 records (variable unblocked) are not permitted 
with COBOL. 

Form-4 Records 

Form-4 tape records are variable-length, blocked, with 
record marks and a Record Character-Count (RCC) 
field in each record, and a Block Character-Count 
(BCC) field in each block. Variable length implies that 
all the records in a file do not contain the same num- 
ber of characters. 

Block Character-Count Field 

A four-character field at the beginning of each block 
contains a count of the total number of characters in 
the block (including the block character-count field it- 
self). The BCC field has AB zone bits (ibm card code 
12-punch) over the units position. This count is used 
to check wrong-length record conditions. 

Record Character-Count Field 

A record character-count field of three characters in 
each record contains a count of the number of charac- 



Record 1 



Record 2 



Record 3 



Figure 9. Form-1 Records with Record Marks 



Record 1 



Record 2 



Record 3 



Figure 10. Form-1 Records without Record Marks 
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Figure 11. Form-2 Records with Padding 

ters in that record, including the RCC field itself and 
the record mark. This field must be in the same rela- 
tive position in each record (the character size of each 
CI in Figure 12 is the same). Figure 12 shows the rec- 
ord format for a form-4 record. 

Note: For form-2 and form-4 records, it is the pro- 
grammer's responsibility to place all record marks in 
the file-description entries, and in the work areas, 
where applicable. 

Record Formats for Punched-Card Files 

Card Read-Punch Records 

Records of files assigned to the card reader and the 
card punch must be eighty characters long, unblocked, 
and may or may not have record marks in the 80th 
character position (card column 80). This is equivalent 
to the form-1 record described previously. 

Printer Records 

Records of files assigned to the printer must also have 
form-1 record format. For the printer the fixed record 
size must be equal to the number of print positions on 
the printer. A maximum of 132 print positions is used 
by the cobol compiler. 

Record Formats for Disk Files 

cobol can process disk records that are fixed-length 
unblocked (form-1), fixed-length blocked (form-2), or 
variable-length blocked records (form-4). The maxi- 
mum size of a record is 999 characters. Figure 22 shows 
the record forms permitted for each type of access 
mode. 

To process blocked records, the cobol processor re- 
quires the following. 

1. A block may contain a maximum of ten records for 
random files, one hundred for sequential files, and 
thirty for control-sequential files. 



2. In blocked files, each record in every block must 
contain a record mark as its last character. 

3. For variable-length records, a block-length field 
must be included in each block, and a record-length 
field in each record (see Figure 13). 

As the name implies, block length is the total num- 
ber of characters in the block, including itself and 
record marks. The block-length field must always 
be recorded in the first four positions of the block. 
When output records are created by cobol, this 
count is generated automatically. 

Record length is the total number of characters in 
the record, including itself and the record mark. The 
record-length field is a three-position field and must be 
located in the same three positions within each record 
in the file. 

Figure 13 shows examples of the various types of 
disk records that this cobol processor can handle. 

Data Division Language Specifications 

The data division of a cobol source program is di- 
vided into three major sections: 

FILE SECTION. 

WORKING-STORAGE SECTION. 
CONSTANT SECTION. 

The file section describes the input and output files 
with respect to content and organizational format. It 
has two major subdivisions: the file-description entry 
that specifies the physical characteristics and organi- 
zation of the input and/or output data and die record- 
description entry that describes the individual items 
contained in the file records. 

The working-stobage section describes the areas of 
core storage where intermediate results and other 
items are stored temporarily at object-program execu- 
tion time. 

The constant section describes fixed items of data 
which remain unchanged during the running of the 
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(Fix 
FILE A. FORM-1 80-CHARACTER 


ed-Length) 
UNBLOCKED 
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(Fixed-Length) 
FILEB. FORM-1 175-CHARACTER UNBLOCKED RECORDS 



175 - Character Record 
(First 100 Characters) 
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(Last 75 Characters) 
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175 - Character Record 
(First 100 Characters) 
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FILEC. FORM-2 70-CHARACTER RECORDS, 
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A BLOCK 
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FILED. FORM-4 VARIABLE-LENGTH BLOCKED RECORDS (LARGEST BLOCK - 300 CHARACTERS; LARGEST RECORD - 296 CHARACTERS) 
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SA - Sector Address 
G - Gap Between Sectors 



BL - Block-Length Field 
RL - Record-Length Field 



Figure 13. Schematic Records on Disk 
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object program. A date, for example, might be a fixed 
item, or a constant. 

The cobol presentation format for the data division 
is: 

DATA DIVISION. 

FILE SECTION. 

File-Description Entries and 
Record-Description Entries 

WORKING-STORAGE SECTION. 
Record-Description Entries 

CONSTANT SECTION. 

Record-Description Entries 

14 Disk COBOL Specs. 



File Section 

The file-description entries and record-description en- 
tries describe the files to be processed by the object 
program. The file-description entries are of two major 
types: those that involve the disk-storage unit and 
those that involve other input or output media. 

File-Description Entries 

A file-description entry must be written for each file 
to be processed by the object program. It includes spe- 
cifications for the mode in which the file is recorded, 
the record and block size, label record information, 
and the names of the data records that make up the file. 



File-Description Entry — Tape Files 

This format is used to describe magnetic tape files. 
Reference Format 

FD file-name | RECORDING MODE IS mode 






BLOCK CONTAINS integer-1 \ RECQRD ^ S ^ f\ 

— } CHARACTER^] }J 



RECORD CONTAINS [integer-2 TO] 



integer-3 CHARACTER[S] 

r , tAREJ \ STANDARD } 
LABEL RECORD[S] j IS \ j OMITTED \ 

VALUE OF data-name-1 IS literal data-name-2 IS . . . I 



DATA RECORDfS] 



( ARE I 
|lS \ 



data-name-3 I data-name-4 



I data-name-4 I. 



Note: A value clause is required when label rec- 
ords are standard. 

FD file-name 



The level indicator identifies the beginning of the 
file-description entry and precedes the file-name as- 
signed by the programmer. ( Example: Figure 14. ) 
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Figure 14. fd File-Name 



] 



RECORDING MODE IS 1 



This clause specifies the mode in which the file is 
recorded. A 1 indicates the move mode, even-parity. 
recording mode 1 is the only recording mode imple- 
mented by this cobol processor. 



[■ 



BLOCK CONTAINS integer-1 \ RECQRP[S] 
} CHARACTER^] 



fl 



This clause must be included if more than one data 
record is included in a tape record (other than form-1). 
It indicates the size of the block in records or charac- 
ters. The size may be stated in terms of record(s) for 
form-1 or form-2 records where integer-1 is the num- 
ber of data records in the block. 



The size must be stated in terms of character(s) 
for form-4 records where integer-1 is equal to or 
greater than the number of characters in the longest 
block of the file. This number includes the four-char- 
acter block count field (BCC). See also Form-4 Records. 

Example: The largest block in the payrlmastr file 
contains 500 characters plus the BCC field (Figure 15). 
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Figure 15. block contains 

[ RECORD CONTAINS [integer-2 TO] 

integer-3 CHARACTER [S] J 

The record contains clause may be used to specify 
the number of characters in the data records. Because 
the record-description entries define the size of each 
data record, this clause is never necessary. However, 
if the programmer wishes to include it, integer-2 speci- 
fies the number of characters in the smallest record in 
the file, and integer-3 specifies the number of char- 
acters in the largest record. 

Fixed-length records must be specified using integer- 
3 only. Variable-length records are specified by using 
both integer-2 and integer-3. 

Example: The records for a certain file are variable 
length. The smallest record size is 75 characters; the 
largest is 86 characters (Figure 16). When levels are 
defined in the FD, 86 must be defined before 75. 
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Figure 16. record contains 

Note: Both the block count and the record count 
must include the record mark ( ^ ) in the count. 



LABEL RECOILS] \g*\ j^^f 



This required clause states whether header and 
trailer label records are standard or omitted. This cobol 
processor can handle only standard type- A, type-B, 
and type-C tape labels and standard disk labels. For 
punched-card files the omitted option must be used. 

Example: Figure 17 shows a label record entry for 
a punched-card input file. 
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Figure 17. label records 
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Today's Date 

if standard label records are specified for output files, 
today's date must be in core storage at object-program 
execution time. 

To enter the current date in the object program, 
insert a date card just ahead of the EX card produced 
by the Autocoder processor. The EX card is the last 
card in the object program. The format for the date 
card is: 



Label Information (Header Label Records) 

The 22-character label-information field in 120-char- 
acter label records contains these fields: 



olumns 


Punch 


Description 


1-3 


082 


Storage Location 


4-5 


05 


Number of Characters 


6 


0-5-8 


Word Separator 


7-11 


XX XXX 

YRDAY 


Today's Date 



Field Name 
Density 
Check Sum 
Block Sequence 
Tape Checking Technique 
Tape Data Recording 

Technique 
Tape Data Processing 

Technique 
Creating System 

Record Format 
Record Length 
Blocking Factor/Size 
Check Point 



Number of 
Characters 

1 

1 

1 

1 

1 

1 
4 

1 
5 
5 
1 



Type of 
Characters 
Numeric 
Numeric 
Numeric 
Numeric 

Numeric 

Numeric 

Numeric (1401, 1440, 

or 1460) 
Alphanumeric 
Numeric 
Numeric 
Numeric 



VALUE OF data-name-1 IS literal 



data-name-2 IS . . . 



The cobol programmer may specify the items of in- 
formation that appear in the label records of tape files. 
These items must be supplied by using a value of 
clause if standard tape header-label records are used. 

Data-name is the name of a field contained in the 
header label record; literal refers to the contents of the 
field. Figure 18 is a chart showing data-names and 
lengths of fields used in standard tape header label 
records. 



The 6-character label information field in 84-character label 
records contains a blank and five numeric characters. 

Tape Trailer Labels 

The following information is contained in ibm standard 
trailer labels: 





COMPLETE CHECKING 


PARTIAL CHECKING 


LABEL RECORD 


INPUT 


OUTPUT 


INPUT 


OUTPUT 


FIELD 


ABC 


ABC 


ABC 


ABC 


IDENTIFICATION 


10 10 18 


10 10 18 


10 10 18 


10 10 18 


(or ID) 


A/N A/N A/N 


A/N A/N A/N 


A/N A/N A/N 


A/N A/N A/N 


CREATION- 


5 5 5' 








DATE 


N N N 








** 
RETENTION- 


4 3 3 


4 3 3 




4 3 3 


CYCLE 


N N N 


N N N 




N N N 


*** 










FILE-SERIAL- 


5 5 5 


5 5 5 






NUMBER 


N N N 


N N N 






REEL-SEQUENCE- 


f4 +3 f4 


t4 f3 "M 






NUMBER 


N N N 


N N N 






LABEL- 


*22 A6 


*22 ^ 6 






INFORMATION 


A/N A/N 


A/N A/N 







TYPE-A-LABELS 
(120 characters) 


Positions 
1-5 


Contents 
lEORb 
lEOFb 


TYPE-B-LABELS 
(80 characters) 


67-72 
1-5 


XXXXXX (Block Count) 

lEORb 

lEOFb 


TYPE-C-LABELS 

(84 characters) 


6-10 
1-6 


XXXXX (Block Count) 
1 EOR bb 
1 EOF bb 


ARTIAL CHECKING 


7-12 


XXXXXX (Block Count) 



t If not present, 001 or 0001 will be assumed. 

* All 22 characters are checked. 

** If the label type requires only 3 digits, the thousands position must be zero. 

*** The use of FILE-SERIAL-NUMBER implies full label checking for this file. 

A Optional but checked . 

Figure 18. Header Label Records for Tape Files 
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Figure 19 shows how the identification of a payroll 
master file is supplied. 
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Figure 19. identification 

Examples: Figure 20 shows how identification and 
a retention cycle of 286 days are supplied for an out- 
put file. 
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Figure 20. identification and Retention Cycle 



DATA RECORD[S] 



< ARE I 
JIS \ 



data-name-3 



Data-name-3, data-name-4, etc., must each be the 
subject of a record-description entry that has a level- 
number of 01. 

If the file contains more than one type of record, a 
different data-name must appear for each type. Data- 
name order is not important. 

Note: If one record is read from a given file and 
another is read from the same file, the second record 
replaces the first in the read-in area. Thus, if two 
records are needed for processing at the same time, 
the first record must be saved by moving it to an- 
other area of storage (such as a work area) before the 
second record is read. 

Examples: Figure 21 shows a sample data record 
clause. In this example, recorda and recordb are both 
records in the same file and are described in a record- 
description entry as level 01 records. 



§ 

7 


A 

8 


|B 

',12 16 20 24 28 32 36 40 44 


48 




, , , ifl,j»,-rv»i &££i0JPJ?i<Ti ,-4i«?iA &F/l/>,lR/*A> ^/r.vm\p,B, 




i i i i i i i l i l i l r 1 i i ill I 1 i 1 l i i l 1 i 



Figure 21. data records 

File-Description Entry — Punched-Card Files 

This format is used to describe punched-card files. 



[« 







FD file-name \ RECORDING MODE IS 1 

[( RECORD[S] n 
BLOCK CONTAINS integer-1 j CHARACTER^] [J 

RECORD CONTAINS integer-3 CHARACTER^] 

LABEL RECORD[S] |abf.[ OMITTED 

DATA RECORD[S] j IS t data-name-3 data-name-4 \. 



Mass Storage Files 

With this cobol processor, the term mass-storage file 
refers to any group of records read from, stored on, or 
written on a disk storage unit. 

Three reference formats exist that allow the user to 
specify random processing, control-sequential proc- 
essing, or sequential processing (see Access Modes). 

In any one cobol source program, a maximum of 
seven MD entries can be used. 

Random Access 
Reference Format 



MD file-name 
data-name-4 L [ RECORDING MODE IS SECTOR ] 



PROCESSING MODE IS SEQUENTIAL 
ACCESS MODE IS RANDOM 



ACTUAL KEY IS data-name 



Tsyj 






SYMBOLIC KEY IS data-name 



] 



FILE-LIMIT [Sj j ARE y integer < THRO UGH [ inte S er 
[BLOCK CONTAINS integer j ^S R [S] i] 
[ RECORD CONTAINS integer CHARACTER^]] 

LABEL RECORDLSJ ) ^ [ } gflgggg? ! | 
j VALUE OF data-name IS literal [ data-name IS ... "j | 

DATA RECORD[S] j A S RE I data-name [ data-name ... 1 
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Control-Sequential Access 

Reference Format 

MP file-name 

[ RECORDING MODE IS SECTOR ] 

PROCESSING MODE IS SEQUENTIAL 
ACCESS MODE IS i CONTROL-SEQUENTIAL-A > 
j CONTROL-SEQUENTIAL-B \ 

J re j ( THRU i 

FILE-LIMIT[S] j ARE [ integer j THROUGH I inte 8 er 

r i RECORD[S] i -i 

[ BLOCK CONTAINS integer J CHA RACTER[S] | J 

[ RECORD CONTAINS integer CHARACTER [S]] 

LABEL RECORDES] j ^ f j §^1^ | 
VALUE OF data-name IS literal I data-name IS . . . I 
DATA RECORD[S] ] » j,g [ data-name \dat a-name . . .1 

Sequential Access 
MP file-name 

RECORDING MODE IS SECTOr] 

PROCESSING MODE IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL 

FILE-LIMIT[Sj | ™ RE [integer j ^q ugh | integer 
[BLOCK CONTAINS integer | £hXcteV s][] 



RECORD CONTAINS integer TO 



•] 



integer CHARACTERS] 

LABEL RECORDCS] ^Q S^g ] 
VALUE OF data-name IS literal [data-name IS . . .] 
DATA RECORD[S] j AR£ | data-name [data-name . . .] 



Clause Description 

The file-description entry clauses that have not been 
described previously are described here. 

[ RECORDING MODE IS SECTOR ] 

A recording mode is significant only for mass-storage 
files. All files will be recorded and read without word 
marks. The key word sector is used to specify the par- 
ticular disk-recording mode for a specific file. Data is 
read or written by sector (100 characters per sector). 

PROCESSING MODE IS SEQUENTIAL 

This clause is used to describe all mass-storage files 
for the ibm 1401, 1440, or 1460 Data Processing Sys- 
tems. The clause refers to the order of action of the 
access mechanisms. Because the 1311 has only one 
access mechanism, the access order is sequential. (Rec- 
ord 1 is retrieved, followed by record 2, etc., as called 
for by the object program.) 

RANDOM n 

j CONTROL-SEQUENTIAL-A I 



ACCESS MODE IS 



CONTROL-SEQUENTIAL-B 
SEQUENTIAL 



This clause must be included in an MD entry and 
specifies the organization of the file. The terms ran- 
dom, CONTROL-SEQUENTIAL, and SEQUENTIAL apply to 

the means of retrieving and storing disk records. 

RANDOM 

In the random access mode, each record has a unique 
disk address. Records can be arranged in random order 
because the unique address can refer to only one rec- 
ord in the file. In a purely random file, one seek and 
one read per record is necessary. 

SEQUENTIAL 

In the sequential access mode, records are arranged 
in sequence by control field. They are stored in con- 
secutive locations in the disk-storage unit between 
addresses established by the user as the upper and 
lower limits of the file area. To process a sequential 
file, the program requires only the upper and lower 
limits of this file area. It begins with the first record 
and processes each record in sequence. 

CONTROL-SEQUENTIAL-A and CONTROL-SEQUENTIAL-B 

In the control-sequential access mode, records are 
stored with a blank (sequence-link) field appended to 
each record as it is loaded onto the disk pack, control- 
sequential-a refers to records without record marks; 
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coNTROL-SEQUENTiAL-B refers to records with record 
marks. Records to be added to the file are written into 
a separate area of disk storage. The address of the 
added record is written in the sequence-link field of 
the record that sequentially precedes the added record. 
Similarly, a record can be deleted and the sequence re- 
established by placing the address of the following rec- 
ord in the sequence-link field of the preceding record. 
When the file is processed, the program checks the 
sequence-link of a record. If it is a blank, the next con- 
secutive disk location is read. However, if the sequence- 
link field contains an address, the program seeks and 
reads the record stored at that address. 

The length of the sequence-link field is a: 

1. Six-digit address, if the file is unblocked, or a 

2. Seven-digit address, if the file is blocked and the 
blocking factor is two to ten records per block, or a 

3. Seven-digit address with zone bits over the seventh 
position, if the file is blocked and the blocking fac- 
tor is eleven to thirty records per block, or an 

4. Eight-digit address, where the eighth digit identifies 
the record mark ( ^ ). 

Standard six-digit addresses are used in an un- 
blocked file. A seventh digit (R) is added to the ad- 
dresses used with blocked files, when the blocking 
factor is two to ten records per block. These addresses 
are in the form SSSSSSR. The first six digits are the 
address of the first sector of the block. The seventh 
digit (R) designates the position of the record within 
the block. An eighth digit (R) is added for a record 
mark. These addresses are in the form SSSSSSRR. The 
first six digits are the address of the first sector of the 
block. The seventh digit designates the position of the 
record within the block. The eighth digit is used to 
identify a record mark. 

The cobol processor handles the various disk rec- 
ord forms as shown in Figure 22. 



ACCESS MODE 


FILE TYPE 


RECORD FORM PERMITTED? 


FIXED -LENGTH 


VARIABLE -LENGTH 


UNBLOCKED 
(Form-1) 


BLOCKED 
(Form -J) 


BLOCKED 
(Form -4) 


RANDOM 

RANDOM 

CONTROL 
SEQUENTIAL 

SEQUENTIAL 

SEQUENTIAL 


INPUT OR 
INPUT -OUTPUT 

OUTPUT 

INPUT OR 
INPUT -OUTPUT 

INPUT 

OUTPUT 


Yes 
Yes 
Yes 

Yes 
Yes 


Yes 
No 
Yes 

Yes 
Yes 


No 
No 
No 

Yes 
Yes 



Figure 22. Record Formats for Disk Files 

The maximum blocking factor (number of logical 
records per block) is ten for random files, one hundred 
for sequential files, and thirty for control-sequential 
files. 



[ ACTUAL KEY IS data-name] 

This clause is required if the access mode of a mass- 
storage file has been specified as random. 

Data-name is the name given by the programmer to 
the core-storage field that will contain the disk address 
of the record currently being processed in a given file 
during execution of the object program. This field will 
be updated in one of two ways: 

1. By procedure division statements written by the 
source programmer. 

2. By statements developed by the processor from 
specifications given in the key-conversion section in 
association with the use verb. 

The format of the data-name field must be: SSSSSSR. 
The first six digits (SSSSSS) are the actual address of 
the disk sector where the block of records is stored. If 
the block of records covers more than one sector, the 
data-name field contains the address of the first sector. 
The seventh digit (R) indicates which record in the 
block is to be made available for processing. This digit 
(R) may be any digit 0-9. The digit represents the first 
record in the block; the digit 1 represents the second 
record, etc. If the file consists of unblocked, random- 
access records, the seventh digit (R) must be 0. 

[ SYMBOLIC KEY IS data-name ] 

The symbolic key clause must be used only if a key- 
conversion has been specified for a random file. If no 
key-conversion has been specified, the symbolic key 
clause must be omitted. 

Data-name is the field operated on in the section that 
makes the key-conversion (see Procedure Division). 
The symbolic key is the indirect reference to data- 
name. 

Example (Figure 23) : To compute the address of any 
record needed by this program, the factor +3000 is 
added to the contents of the symbolic key field and the 
sum is divided by 25. The result is the actual key. 
(See Declarative section for a description of the use 
verb.) 
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Figure 23. key-conversion 
FILE-LIMITTS] |^ S RE | integer ^ XHROUGH t inte ^ er 



19 



These two integers are the sector addresses of the 
first and last physical records of the file. Each integer 
contains six numeric characters. 

If the RDLIN macro is used to redefine the file limits 
of the file, the new labels must not create the need for 
handling the cylinder-overflow condition if the file 
limits used at compile time did not imply cylinder 
overflow. 

Example: The lower and upper limits for a given file 
are 000199 and 002199. Figure 24 shows a correct file- 
limits entry. 



/",/ 'i^g-it,/ mi .r.C, \A&b >4*&>t&4, ctmj&ia .aaa., ?,?.«[• 



ii'ii' 



Figure 24. file-limits 



I VALUE OF data-name IS literal [data-name IS . . .J 

The value of clause is used in a file-description 
entry if the file has standard label records. The follow- 
ing sets of keywords and descriptions of literals are 
used as entries of this clause. 



Data-Name 

i 1D \ 

| IDENTIFICATION j 

CREATION-DATE 

RETENTION-CYCLE 

FILE-SERIAL-NUMBER 

FILE-SEQUENCE-NUMBER 

PACK-SERIAL-NUMBER 



Literal 

10-character AN 

5-digit numeric 
4-digit numeric 
5-digit numeric 
4-digit numeric 
5-digit numeric 



Use of the pack-serial-number entry implies complete 
label checking for this file. 

The processor selects particular label-checking pro- 
cedures based upon the entries in the value of clause. 
The relations between the entries, the types of files, 
and the label-checking procedures selected are shown 
in Figure 25. 



Disk Trailer Labels 

The following information is contained in ibm standard 
disk trailer labels. 



Trailer Label 


Positions 


Contents 


(contains as many characters 
as the user's records) 


1-5 


1 EORb 
lEOFb 



Record-Description Entries 

This section supplements the clause descriptions given 
in the cobol General Information Manual. 



CHECKING 


Complete 
Label Checking 


Partial 
Label Checking 


ROUTINES SELECTED 


INPUT 


OUTPUT 


INPUT 


ID 


10 AN 


10 AN 


10 AN 


CREATION-DATE 


5 






RETENTION-CYCLE 


4 


4 




FILE-SERIAL-NUMBER 


*5 


*5 




FILE-SEQUENCE-NUMBER 


**4 


**4 




PACK-SERIAL-NUMBER 


5 


5 





* If not present, the pack-serial-number will be used. 
** If not present, 0001 will be assumed. 

Figure 25. Label Checking 



SIZE 

This clause tells the processor how many characters 
(or digits) the data item contains. The general refer- 
ence format for a size clause is: 

T o T ^ ™ r , ™l o r S CHARACTERS] n~| 

SIZE IS \integer-l TOj integer-2 |_ j DIG IT[S] J J 

[ DEPENDING ON data-name ] 

This size is interpreted by the cobol processor in 
terms of characters if either the optional word char- 
acter's] or digit[s] is used or if neither of the op- 
tional words is used. 

To specify the sizes of variable-length records, 
(form-4) integer-1 and integer-2 and depending on 
data-name must be used. Integer-1 specifies the num- 
ber of characters in the smallest record and integer-2 
specifies the number of characters in the largest record. 
depending on data-name identifies the elementary 
items whose value is the record character count (refer 
to Record Character-Count Field). Integer-1 and de- 
pending on data-name may be used only with form-4 
records. 

Example: Figure 26 shows a size entry for a form-4 
record which can contain from 50 to 150 characters. 
reccount is the data-name the programmer has used 
to identify the RCC field. 
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Figure 26. size Variable Length 
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The size of fixed-length records is specified by using 
the form: 

[aais*-^RgK nnas, |]] 

where integer-2 is the exact number of characters con- 
tained in the record or item of data. 

Example: Figure 27 shows a size entry for a fixed- 
length record whose size is 80 characters. 
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Figure 27. size Fixed Length 

VALUE 

The general reference format for a value clause is: 

f { VALUE IS ) , r -i 

I L VALUES ARE ( Hteral-1 [ THRU literal-2] 

I" Uteral-3 [ THRU Hteral-4~] . . 1 

A value clause can state the initial contents (value) 
of a data item in the working-storage section or con- 
stant section. It can also be used to define the value 
of a condition-name (level-88 item) in the file section 
and working-storage section. 

If the value clause is not used to define the initial 
values of working-storage items, their contents at 
program execution time will be unpredictable. 

If the value clause specifies a numerical literal, an 
operational sign will be developed (placed over the 
units position of the numerical field), only if the literal 
is preceded by a plus or minus sign. A figurative con- 
stant may be used in the value entry where a literal is 
specified. 

The thru option is not described in the cohol Gen- 
eral Information Manual. It may be used only with 
condition-names as shown in Figure 28. 
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Figure 28. thru Option 

The Constant and Working Storage Sections 

The record-description entries described for the file 
section apply also to the constant and working- 
storage sections. 

These sections begin with the header line working- 
storage section or constant section and are followed 
immediately by the record-description entries. 



Added Elective Elements of the Data Division 

These elective elements of the record-description 
entry are not specified in the cobol General Informa- 
tion Manual, but are contained in this cobol processor: 

1. The depending on data-name and the to integer-2 
options of the size clause. 

2. The thru literal-2 and the literal-3 thru literal-4 
options of the value clause. 

3. All entries on mass storage. 

Deferred Elements of the Data Division 

1. The copy option is contained in the cobol General 
Information Manual, but is not contained in this 
cobol processor. 

2. The following editing functions cannot be specified 
by editing clauses or picture clauses: 

a. Editing of a single digit field. 

b. Single-position zero suppression. For example, Z9 
is incorrect but ZZ is correct. 

3. No item may exceed 999 characters. 

Not Applicable 

The usage, signed, and synchronized clauses have no 
meaning in a 1401, 1440, or 1460 cobol program and 
should not be used. 

Note: A decimal insertion character cannot be used as the 
rightmost PICTURE character. For example, the following 
entry will not be considered valid: 

02 NAME PICTURE Z,ZZZ,ZZ9. OCCURS 12 TIMES. 



Procedure Division 

The procedure division is the operational part of the 
cobol source program. Once the data has been de- 
scribed, the programmer tells the cobol processor what 
steps the machine must take to read the input data, 
process it, and write it as output on punched cards, 
magnetic tape, or a printed form. 

The cobol verbs are the main elements in the proce- 
dure DrvisiON. They are described in detail in the 
cobol General Information Manual. However, some 
verbs have special meaning when used in a 1401, 1440, 
and 1460 cobol source program. This additional in- 
formation is presented in the following section. 

Declaratives 

Reference Format. 
DECLARATIVES. 

Section-name-1 SECTION. 



USE FOR KEY-CONVERSION ON 

i ALL FILES 

( file-name [file-name ] 

Paragraph-name. Any procedure statement(s). 

[Section-name SECTION. USE . . .] 

END DECLARATIVES. 



I. 
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Declaratives are procedures that operate either under 
control of the main body of the procedure division or 
under control of the Input/Output Control System. 
They consist of sentences and associated procedures 
designed to give special information to the cobol 
compiler. 

If declaratives are used in a cobol source program: 

1. They must be grouped together and placed at the 
beginning of the procedure division, and 

2. The group of declaratives must be preceded by the 
key word, declaratives, and must be followed by 
the keywords, end declaratives. 

Each declarative occupies a single section and 
must conform to the rules of procedure formation as 
described in the Procedure Division section of the 
cobol General Information Manual. The source pro- 
grammer must write the declaratives and end 
declaratives entries beginning in column 8. 
The use declarative is used in the 1401, 1440, and 
1460 cobol to specify the key-conversion procedure 
which is to be used for developing disk addresses. This 
enables the source programmer to supply his own con- 
version factors and techniques for obtaining disk ad- 
dresses. 

A use declarative may be used to specify the key- 
conversion for more than one file. Thus, if a general 
key conversion algorithm must operate on different 
data names for different files, the actual key and sym- 
bolic key clauses may be used. These clauses appear 
in the MD entries of the data division. (See Mass- 
Storage Files.) Each MD that specifies the actual key 
and symbolic key clauses implies a use declarative. 
The processor will associate the actual key and sym- 
bolic key functions by file. 

Example: In the example shown in Figure 29, the 
same key-conversion procedure is used for two differ- 
ent files. The MD entries inform the processor of the 
particular data-names which must be associated with 
actual key and symbolic key for each file. When the 
disk addresses for file records are computed at object- 
program execution time, the contents of the symbolic 
key field will be added to factor-1 and the sum will be 
divided by factor-2. The result is the actual key. 

The DISPLAY Verb 

The printer is the standard output unit for the dis- 
play verb. However, information may also be dis- 
played via the card read-punch or the console printer. 
As many printer lines or punched cards will be used 
as are necessary to display the information contained 
in the area of core storage whose data-name is speci- 
fied in the display statement. 

The object program initiates a skip to channel 1 in 
the carriage tape if a form overflow occurs in the 



printer. If the display verb is used in the procedure 
division to address the printer, the processor assumes 
that the printer will have a carriage tape with punches 
in channels 1 and 12 (overflow) at object program exe- 
cution time. 

Examples: The statement shown in Figure 30 will 
cause the contents of the area whose data-name is 
grand-total to be displayed on the printer. 

The statement shown in Figure 31 will cause the 
contents of grand-total to be punched into cards, if 
the mnemonic-name card-punch has been assigned to 
1402-P or 1442-P or 1444-P in the special-names para- 
graph of the environment division. 

The ACCEPT Verb 

A card reader is the standard input device for the 
accept verb. However, the console printer can also 
serve as an input device. When accept is from a card 
reader, the minimum area that can be declared is 
80 positions. 

Example: Figure 32 shows an accept statement that 
will cause data to be read from the card reader and 
moved to an area whose data-name is cancellations. 
If more than 80 storage positions are defined by can- 
cellations, multiple cards will be read from the card 
reader until the area is filled. 

The ENTER Verb 

The enter verb permits the programmer to use Auto- 
coder statements in a cobol source program. 

The language-name used with 1401, 1440, and 1460 
cobol is autocoder. The Autocoder statements must 
be presented to the cobol processor immediately fol- 
lowing the enter autocoder statement, and they 
must be followed by an enter cobol entry that indi- 
cates the point at which the cobol source language is 
resumed. Each enter autocoder statement must con- 
stitute a separate paragraph in the source program 
and must appear on the same line as the name of 
the paragraph. The enter cobol statement used for re- 
turning to cobol from Autocoder must either constitute 
a separate paragraph or be the first entry of a para- 
graph. The name of this paragraph must be on the 
same line as the enter cobol statement. 

These specifications must be maintained when using 
Autocoder entries in a cobol program: 

1. Autocoder statements must be coded in Autocoder 
format (label starting in column 6, operation in col- 
umn 16, and operand in column 21). 

2. Symbols used in Autocoder statements must be five 
characters in length. 

3. Macro instructions are permitted. 

4. Autocoder statements can be written to refer to 
COBOL-names if they are related by entries in the 
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Figure 29. key-conversion Sample ( Part 1 of 2) 
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Figure 29. key-conversion Sample ( Part 2 of 2) 



o 

7 


A 
8 


'B 

,12 16 20 24 28 32 


36 


40 


44 


48 




, , , />>/ iSiPuL^iK ,6ifiAAMX-iTt6m*£. , , , , , , , , , i i 




• iiiii iii, i i , , , i i i i i i i ■ i , 



Figure 30. Printer display 



special-names section of the cobol program. How- 
ever, cobol statements cannot be written to refer to 
Autocoder-names . 

5. The word-mark status of a constant or area defined 
by a cobol statement must be the same after the 
Autocoder statements are executed in the object 
program as it was before they were executed. Thus, 
if it is necessary to write an Autocoder statement 
that sets or clears a word mark in such an area, the 
word-mark position of that area must be tested first 
so that the word mark can be reset or cleared before 
returning to the cobol program. 

6. No 1401 SPS statements can be included. 

7. When executing overlays while in the enter auto- 
coder mode, use of the cobol ovlay macro causes 
the correct branch-to-the-loader to be generated. 
Example: Figure 33 is an example that includes a 

section of Autocoder statements. 



The OPEN Verb 



Reference Format. 
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Figure 31. Punch display 
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Figure 32. accept 



The set of rules shown in Figure 34 applies to the file 

types specified in open statements: 

^Specifying a file as an input-output file assumes that: 
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This statement causes a logical record to be released 
from an input or input-output file and transferred to 
the record-name associated with the file. 

Data-name is the name given by the programmer to 
the core-storage area to which the record must be trans- 
ferred. After the read statement is executed, the logi- 
cal record will be available both in record-name and 
in data-name. 

Both the invalid key and the at end options may be 
implied within the cobol program. This means that the 
appropriate clause must be used at least once in the 
cobol program in association with each input or input- 
output file. If a given input or input-output file has 
only one use of the invalid key or at end option, all 
read statements associated with the file will assume 
the implied option. If more than one option is used 
with a file, it is required that all read statements have 
explicit invalid key or at end options. 

The any-imperative-statement is executed as de- 
scribed here: 



Figure 33. enter Sample 

1. The file must have been described in an MD entry. 

2. Any use of the write verb in association with this 
file will cause the specified record to be written back 
on the file in the position referred to by the last read 
associated with this file. 



Nature of Appropriate 
Options 



FILE TYPE 


RANDOM 


CONTROL- 
SEQUENTIAL 


SEQUENTIAL 


INPUT 


YES 


YES 


YES 


OUTPUT 


YES 


NO 


YES 


INPUT-OUTPUT 


*YES 


*YES 


NO 



Figure 34. File Types for open Statements 

Note: A file specified as having a control-sequen- 
tial operation mode may not be opened as an output 
file. 

The READ Verb 

Reference Format for mass-storage random input or 
random input-output files: 

READ file-name RECORD [ iNTO data-name] 

[" INVALID KEY any-imperative-statement] 

Reference Format for all other input or input-output 
files: 

READ file-name RECORD [iNTO data-name'] 
TAT END any-imperative-statement] 



File 
Card Reader 

Random File 



All Others 



AT END 



INVALID 
KEY 



AT END 



Triggering Condition 

Attempt to read when hopper is 
empty. 

The actual key is either outside 
the limits defined in the file- 
limits clause or is an invalid disk 
address. 

When an end-of-file condition or 
the upper file limit is encountered. 



The SEEK Verb 



Reference Format. 



SEEK file-name RECORD 

This verb allows the user to seek a particular record as 
specified in the actual key statement. Processing con- 
tinues while the seek operation is performed until the 
next read or write disk file statement is encountered. 
If the programmer has not specified a seek file-name 
record, a seek instruction will be automatically exe- 
cuted in the object program before the disk read or 
write operation. 



Reference Format. 



The STOP Verb 



S2x\sss\ 



This statement produces a machine halt instruction 
which stops the execution of the object program. The 
run option of the stop verb causes an unconditional 
halt, and the program cannot be restarted. 
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If the stop literal option is used, and if the object 
computer has a console printer, the literal will be dis- 
played upon it. Otherwise, if the stop literal is nu- 
meric and within the range 00-99, the literal itself is 
displayed in the B-register if the halt occurs during 
the running of the object program. 

If the stop literal is numeric and greater than 99 or if 
it is alphanumeric, the address of the literal is dis- 
played in the B-address register if an object program 
halt occurs. Pressing the start key allows the object 
program to proceed. 

The WRITE Verb 

Reference Format for control-sequential files and 
punch file: 

WRITE record-name [" FROM area-name "I 

Reference Format for printer file: 

WRITE record-name TfROM area-name J 



f S BEFORE \ 



{ integer LINES 



[/AFTER S ADVANCING \ mnemonic-name 



i] 



skipping is desired instead of line spacing. The skip 
occurs to the line that corresponds to the specified 
punch in the carriage tape. 

The invalid key option of the write verb, used only 
with sequential or random mass-storage files, per- 
mits the source programmer to specify the appropri- 
ate action to be taken when IOCS senses the upper 
limit specified in the file-limits entry. This option 
follows the same set of rules as the invalid key or at 
end option of the read verb in connection with implied 
statements. 

Note: The invalid key option should not be used 
with the write verb for input-output files. The in- 
valid key option of the read verb will serve as the test 
for these files. 

Examples: Figures 35, 36, 37, and 38 show sample 
write statements. 



'B 
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Figure 35. write 



Reference Format for sequential files and random files: 
WRITE record-name [ FROM area-name j 

INVALID KEY any-imperative statement 

This statement causes a logical record to be released 
for an output file. 

Record-name is the name given to the record defined 
at the 01 level in the fdle section of the data division 
under the FD or MD entry for the associated file-name. 
Area-name is the name given by the programmer to the 
core-storage area from which the record is to be writ- 
ten. 

The advancing option is used for spacing lines on 
output documents on the printer. The number of spaces 
skipped is equal to the normal printer skip plus the 
integer specified in the advancing option. The integer 
specified will be treated as meaning the number of 
spaces between lines of print. 

after and before in the advancing option control 
printer carriage spacing or skipping before or after the 
write verb is executed. Integer lines specifies how 
many lines should be spaced. Mnemonic-name is the 
name assigned in the special-names paragraph to a 
channel in the carriage tape and is used when carriage 



Exponents 

ibm 1401, 1440, and 1460 cobol provides for integer 
or non-integer powers to be used in exponentiation. 
The sign of the power can be either plus or minus. 
Please note that negative bases cannot be raised to 
other than an integer power. 

Conditional Statements 

Option 1 

IF conditional expression statement-1. 
Option 2 



IF conditional expression 



( statement-2 ) 

{ NEXT SENTENCE \ 



j OTHERWISE I \statement-3 ) 

{ ELSE \ ) NEXT SENTENCE \ 



Option 3 



r t statement-10 INVALID KEY \ 

1 statement-4 AT END > ( statement-6 ) 

\ \ statements ON SIZE ERROR ) \ NEXT SENTENCE ( 

n OTHERWISE I { statements [ ~| 

ELSE S J NEXT SENTENCE (J 

any imperative statements followed by any conditional 
statement-® 
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Figure 36. write and space before printing 
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Figure 37. write and skip after printing 
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Figure 38. conditional write 
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Statement-1 under Option 1 can be only a simple or 
compound imperative statement. 

Statement-2 and/or statement-3 under Option 2 and 
statement-7 under Option 3 can be either imperative or 
conditional. If conditional, these statements can con- 
tain conditional statements in arbitrary depth. When 
conditional, the conditions within the conditional 
statements are nested. 

Statement-4 under Option 3 must be a read state- 
ment, statement-5 must be an arithmetic statement, 
and statement-6 can be only a simple or compound 
imperative statement. Statement-8 followed by state- 
ment-9 (to which the previous paragraph applies be- 
cause it is conditional) is an illustration of an imperative 
statement followed by a conditional statement. This is 
logically equivalent to statement-8 followed by a pe- 
riod followed by statement-^ beginning a new sentence. 
Option 3 in its entirety may be substituted for state- 
ment-2 and/or statement-3 under Option 2. 

An else or otherwise must be explicitly written for 
every conditional statement within a sentence. How- 
ever, the phrase else (otherwise) next sentence may 
be eliminated only if the phrase immediately precedes 
the period ending a sentence. 

Statement 10 must be either a read statement (asso- 
ciated with a disk file or a write statement ( associated 
with a disk file). 



Nested Conditional IF Statements 

The cobol programmer can combine several simple 
conditional statements into one by using a technique 
called nesting. The processor analyzes a nested state- 
ment by working from the inside to the outside of the 
statement. Thus, if all conditions are satisfied, the first 
imperative is executed; if all but the last condition are 
satisfied, the second imperative is executed, etc. 

Figure 39 shows outlines for four simple conditional 
statements. Figure 40 shows an outline for one nested 
conditional if statement that produces the same re- 
sults as the four simple conditional statements shown 
in Figure 39. 

Figure 41 shows an excerpt from a cobol program 
in which four simple relational conditional expressions 
are substituted for the conditions shown in Figures 39 
and 40. 

The block diagram in Figure 42 shows the logic flow 
of the nested if statement in Figure 41. 

Added Elective Elements of the Procedure Division 

The following options are not contained in the cobol 
General Information Manual but are contained in this 
cobol processor. 

1. The advancing option of the write verb. 

2. Option 3 of conditional statements. 

3. The nesting of conditional statements. 
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Deferred Elements of the Procedure Division 

These features described in the cobol General Infor- 
mation Manual are not implemented by this cobol 
processor. 

1. The entire copy option. 

2. The corresponding option of the move verb. 

3. The reel option of the close verb. 

Notes: 

1. A cobol source program can be compiled that pro- 
duces as many as 4,000 Autocoder and IOCS state- 
ments which, when expanded, may produce as many 
as 6,000 one-for-one Autocoder statements. 



2. In order to ensure correct decimal alignment when 
using the divide verb with the giving option, the 
programmer must declare a result field, the decimal 
portion of which is no more than one position greater 
than the decimal portion of the dividend. 

3. When note is the first word of a paragraph, it must 
appear on the same line as the paragraph name. 

4. The figurative constant zero ( zeros or zeroes ) can- 
not be used in an arithmetic computation. For ex- 
ample the statement compute data-name = zero is 
not allowed. This statement must be in the form of 
compute data-name = . 



IF (condition 1) AND (condition 2) AND (condition 3) AND (condition 4) GO TO LAB4 ELSE NEXT SENTENCE. 

IF (condition )) AND (condition 2) AND (condition 3) GO TO LAB3 ELSE NEXT SENTENCE. 

IF (condition 1) AND (condition 2) GO TO LAB2 ELSE NEXT SENTENCE. 

IF (condition 1) GO TO LABI ELSE NEXT SENTENCE. 



Figure 39. Four Conditional if Statements 



IF (condition 1) IF (condition 2) IF (condition 3) IF (condition 4) GO TO 

LAB4 ELSE GO TO LAB3 ELSE GO TO LAB2 ELSE GO TO LABI ELSE NEXT SENTENCE. 



Figure 40. Nested Conditional if Statements 
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Figure 41. Program Sample for Nested Conditional if Statements 
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Figure 42. Conditional Logic 
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General Information 



Character Sets 

ibm Character Set H must be used for source programs. 
This character set consists of the numerals through 9, 
the 26 letters of the alphabet, and 12 special charac- 
ters. The machine character set may be used only for 
alphanumeric literals. The following are cobol (Set H) 
special characters with their equivalents in the ibm 
1401, 1440, and 1460 character set: 



Card Code cobol 1401, 1440, 



Meaning 



blank 

11 

12 
0-1 

11-4-8 

12-4-8 
0-4-8 
0-3-8 
11-3-8 

12-3-8 

3-8 
4-8 



(SetH) 



+ 
I 



1460 



space 

J minus sign 
j hyphen 

plus sign 
division sign 

J multiplication sign 

1 check protection symbol 

right parenthesis 

left parenthesis 
, comma 

$ dollar sign 

J period 
J decimal point 

# equal sign 

@ quotation mark 



□ 
% 



Figurative Constants 

LOW-VALUE(S) 

The value of this figurative constant is the space, or 
blank. The blank character is the lowest in the ibm 
collating sequence. 

HIGH-VALUE(S) 

This figurative constant is defined as the integer 9. The 
character 9 is the highest in the ibm collating sequence. 

QUOTE(S) 

This figurative constant is defined as the cobol charac- 
ter (Set H) for the quotation mark. 



Word Lists 

Additional COBOL Words 

The following words constitute an extension of the list 
of cobol words contained in the ibm General Informa- 
tion Manual describing cobol. id may be used in place 
of identification. The meaning and use of the other 
words have been described in this bulletin. 



1301-D 

1311-D 

1401-SS 

1402-P 

1402-R 

1403-CT 

1403-P 

1403-P-C9 

1403-P-CB 

1403-P-CV 

1440-SS 

1442-P 

1442-R 

1443-CT 

1443-P 

1443-P-C9 

1443-P-CB 

1443-P-CV 

1444-P 

1447-CP 

1460-SS 

ACCESS 

ACTUAL 

ADVANCING 

BEFORE 

CONTROL-SEQUENTIAL-A 

CONTROL-SEQUENTIAL-B 

CREATION-DATE 

DECLARATIVES 

FILE-LIMIT(S) 

FILE(S) 

FILE-SERIAL-NUMBER 

FILE-SEQUENCE-NUMBER 



Class Conditions 



IBM- 1401 

IBM-1440 

IBM-1460 

I-O 

ID 

INVALID 

KEY 

KEY-CONVERSION 

LABEL-INFORMATION 

LINES 

MD 

MODE 

NO-CONSOLE-PRINTER 

NO-DIRECT-SEEK 

NO-MULTIPLY-DIVIDE 

NO-OVERLAP 

NO-PRINT-STORAGE 

PACK-SERIAL-NUMBER 

PROCESSING 

RANDOM 

REEL-SEQUENCE-NUMBER 

RETENTION-CYCLE 

SECTOR 

SEEK 

SEQUENTIAL 

SYMBOLIC 

TAPE 

TAPES 

TYPE-A-LABEL 

TYPE-B-LABEL 

TYPE-C-LABEL 

USE 

VALUES 



The general information manual specifies that the class 
of a data item is either numeric, alphabetic or alpha- 
numeric. It further specifies that the class condition 
tests an alphanumeric item at object time to deter- 
mine whether it is wholly numeric or wholly alpha- 
numeric in content. 

The source statement beginning: 

IF FIELD-A IS NUMERIC . . . 

results in a character-by-character check of the value 
of fdsld-a at object time. If an operational sign is pres- 
ent in the units position, the associated character will 
be interpreted as being numeric. Thus, —9 is inter- 
preted as minus 9, not as the letter R. 

IF FIELD-B IS ALPHABETIC . . . 

results in a character-by-character check of the value 
of FiELD-B at object time. If each character in field-b is 
alphabetic, the item is considered alphabetic. 
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Examples: The following table shows how the class 
of an item is interpreted by the processor, depending 
upon which of the class tests is specified. The table 
shows the result ( yes or no ) for each test and for each 
of the specified ranges of "X." The X-character is used 
in the picture clause. It represents any character in the 
1401, 1440, or 1460 character set. 



ENVIRONMENT DIVISION. 



x-Character 


If Numeric 


If Alphabetic 


0-9 


Yes 


No 


SPECIAL 






CHARACTERS 


No 


No 


SPACE 


No 


Yes 


A-R 


Yes (if units 
position) 


Yes 


S-Z 


No 


Yes 



Continuation of Alpha Literals 

Alphanumeric literals must be 'preceded and followed 
by quotation marks. If an alphanumeric literal must be 
continued, a continuation (-) must appear in column 7 
and a quotation mark must precede the remaining posi- 
tion of the literal. The quotation mark must be in the 
appropriate column for the particular division in which 
the literal appears. If the last character of an alpha- 
numeric literal appears in column 72, column 7 of the 
next line must contain a continuation symbol ^nd the 
next two significant characters in that line must both be 
quotation marks. 



CONFIGURATION SECTION. 



( IBM-1401 

SOURCE-COMPUTER. J IBM-1440 

/ IBM-1460 



IBM-1401 



OBJECT-COMPUTER. 1 IBM-1440 
IBM-1460 



MEMORY SIZE 



/ 4000} 

< ^000 \ CHARACTERS 
( 16000 ) 

ADDRESS integer ) -tjjvtt 

( 4000 



( 4000 \ 
) 8000 ( 
) 12000 ( 

U6000 J 



NO-PRINT-STORAGE ] 

NO-MULTIPLY-DIVIDE ] 

NO-DIRECT-SEEK ] 

NO-OVERLAP ] 
NO-CONSOLE-PRINTER ] 



Reference Formats 

Here is a summary of the reference formats used in 
writing a cobol program for the ibm 1401, 1440, and 
1460 Data Processing Systems with disk storage. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 

[ AUTHOR, author-name . ] 

[" INSTALLATION, any sentence or group of sentences, j 

[^ DATE-WRITTEN, any sentence or group of sentences. | 

[_ DATE-COMPILED. any sentence or group of sentences A 

I SECURITY, any sentence or group of sentences A 

[ REMARKS, any sentence or group of sentences. ~J 



SPECIAL-NAMES. 



device-name IS mnemonic-name 

[ device-name IS mnemonic-name • • • 1 

(ON ) 
switch-name 1 QFF \ STATUS IS condition-name 

DOFF) ~| 

q^- > STATUS IS condition-name 



[ 



switch-name - . . 



autocoder -name IS cobol-name 



I autocoder -name "[ 
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INPUT-OUTPUT SECTION. 

FILE-CONTROL. SELECT file-name 1 

ASSIGN TO device-name 
[ reserve Jno| ALTERNATE AREA[S]1 

[" select 1. 

I-O-CONTROL. 



TYPE-A-LABEL 1 r -, 

APPLY TYPE-B-LABEL } ON file-name APPLY . . . | 



DATA DIVISION . 
FILE SECTION . 
Tape Files: 

YD file-name RECORDING MODE IS 1 
[block CONTAINS Me g er-1 j ggggggk pj f] 

] 



'] 



RECORD CONTAINS integer-2 TO 



integer-3 CHARACTERS] 



LABEL RECORD[S] jjj^J j 



STANDARD 
OMITTED 



VALUE OF data-name-1 IS literal data-name-2 IS 



<&<( 



DATA RECORD[S] i . ,,„ \ data-name-3 data-name 



I data-name-2 IS . . . 
I data-name-4 . . . I. 






Disfc Fites (Random Access): 

MP file-name 

[ RECORDING MODE IS SECTOR ] 

PROCESSING MODE IS SEQUENTIAL 
ACCESS MODE IS RANDOM 
ACTUAL KEY IS data-name 
[ SYMBOLIC KEY IS data-name^ 

FILE-LIMIT[S] { AREr n * gger j THRO UGH \ inte & er I 

[ BLOCK CONTAINS integer | g H ARACTE R[S](] 
[ RECORD CONTAINS integer CHARACTERS ] 

LABEL RECORDCS] j ^ [ j g^g* g° ( 
I VALUE OF data-name IS literal I data-name IS ... J I 

DATA RECORDjjQ \ ,„p,j data-name data-name . , 



■] 



Punched-Card Files: 

FD file-name [ RECORDING MODE IS l] 

r \record[s] n 

[ BLOCK CONTAINS integer- J \ C HARACTER [S] { J 
[" RECORD CONTAINS integer-3 CHARACTER[S]~] 

LABEL RECORD[S] | ^j OMITTED 
DATA RECORD[S] | ^ I data-name-3 



data-name-4 
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Control-Sequential Access: 
MP file-name 

[ RECORDING MODE IS SECTOR ] 
PROCESSING MODE IS SEQUENTIAL 

ACCESS MODE IS < CONTROL-SEQUENTIAL-A > 
I CONTROL-SEQUENTIAL-B ) 

5JC ) ( THRU ) 

ARE) inte 8 er ] THROUGH \ inte 8 er 

r I RECORD[S] ) 1 

[BLOCK CONTAINS Meger j CHARACTER [s] (] 

[ RECORD CONTAINS integer CHARACTER^] ] 

LABEL RECORD[S] \^ m \ ) g^g ° ( 

VALUE OF data-name IS literal \_data-name IS ... J 

DATA RECORD[S] j ARE \ data-name \_data-name . . . J . 



Sequential Access: 
MP file-name 
[ RECORDING MODE IS SECTOR "| 

PROCESSING MODE IS SEQUENTIAL 

ACCESS MODE IS SEQUENTIAL 

FILE-LIMIT[S] Ja RE | ***«■ I trIoUGh I integer 

r ( RECORDtS] )~| 

^ BLOCK CONTAINS integer j CHARACTERS] { J 

[ RECORD CONTAINS[infeger TO] integer CHARACTER^]] 
LABEL RECORD® | ^ j q^^JP \ 
VALUE OF data-name IS literal [data-name IS ... J 
DATA RECORD [Sj j ARE Y data-name | data-name . . . j 
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[DEPENDING ON data-name] 



*t 



Record Description: 

level-number j j^r^me-l ( [REDEFINES data-name^ 

CTVT7 ,cr, , ™i • , o r 5 CHARACTER[S] H 
SIZE IS [mteger-1 TO] integer-2 < DIGITrSl C 

" OCCURS integer-3 TIME[S]] 

POINT LOCATION IS J r^^t ! integer A PLACE [S] 

/ ALPHABETIC j" 
CLASS IS j NUMERIC I 

^LAbi lb < ALPHANUMERIC ( 

lAN I 

[_ PICTURE IS any allowable combination of characters and symbols^ 

JUSTIFIED jlfgy] 

/ ZERO SUPPRESS ) 

J CHECK PROTECT > f LEAVING integer-5 PLACE[S]"| 

_ ( FLOAT DOLLAR SIGN / 

[ BLANK WHEN ZERO ] 

{ VALuf S ARE f literal - 1 [ THRU literal-2] [ ZtferaZ-3 [ THRU literal-4] . . . ] 

* [usage is gSff ATI ° NAL ri 

* [ signed ] 

* I SYNCHRONIZED jj^§| T fl 

♦These clauses are not meaningful to this processor. If used, they will be ignored. 

fThese clauses have been designated as part of Elective Cobol- 1961 and are not included in the General Information Manual. 

a This clause is invalid if used in the file section of the data division on other than 88 levels. 

PROCEDURE DIVISION. 

Option 1: 

^Section-name SECTION .! 

Paragraph-name. Any procedure statement(s). 

Option 2: 
DECLARATIVES. 

Section-name-1 SECTION. 

USE FOR KEY-CONVERSION ON \^rtl^f nnmo \ \ 
(ple-name[file-name\. . . \ 

Paragraph-name. Any procedure statements). 

\Section-name SECTION. USE . . . ] 

END DECLARATIVES. 
Section-name-2 SECTION . 
Paragraph-name. Any procedure statements). 
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ACCEPT data-name [ FROM mnemonic-name J 

. ( data-name-l ) f ( data-name-2 \ "1 T I TO | , "I 

^5° jftteraM J LitoerflI-2 J " ' ' J [} GIVING \ data - name - n J 

[ ROUNDED ] [ON SIZE ERROR an?/ imperative statement ] 
ALTER procedure-name-1 TO PROCEED TO procedure-name-2 [ procedure-name-3 TO PROCEED TO procedure-name-4 ... 1 

CLOSE fle-name-1 WITH JncTrEWINd} fXe-name-2 ... 

COMPUTE data-name-l [ ROUNDED | = arithmetic expression [ ON SIZE ERROR any imperative statement J 



nTCm AV \ data-name-l ) [\ data-name-2) ~| I"™,.,, . ~| 

DISPLAY | toeroW i U toero^ 2 J * * * J L UPON mnemowc -«« we J 



DIVIDE j fa^™™ 6 ' 1 \ INTO j to%*L<j! ne ~ 2 \ [ GIVING data-name-3~\ [ ROUNDED ] [ON SIZE ERROR any imperative statement ] 



procedure-name. ENTER AUTOCODER 
procedure-name. ENTER COBOL 



EXAMINE data-name 



i TALLYING < LEADING > literal-1 [ REPLACING BY literal-2~\ ) 

1 ( until first ) f 



I REPLACING \ LEADING > literal-3 BY literal- 

V ([UNTIL] FIRST/ 



procedure-name. EXIT. 



Option 1: 
GO TO procedure-name. 

Option 2 : 

GO TO procedure-name-1 procedure-name-2 [ procedure-name-3 . . . j DEPENDING ON data-name 

.,„,„ \ data-name-l ) ^ , „ r, -i 

MOVE j jftg^jj f TO data-name-2 \data-name-3 ... J 

MULTIPLY j falra™™ 6 ~* I BY j f^alT^ ^ ( [ GIVING data-name-3~] [ ROUNDED ] [ON SIZE ERROR any imperative statement ] 
NOTE any comment. 



OPEN 



INPUT 
OUTPUT 
{ INPUT-OUTPUT J 



}Eo 



file-name-1 



INPUT 



Vti o 1 j OUTPUT \rj 

file-name-2 ... •< — - „ > file-name-n 

L J ) j INPUT-OUTPUT | ( ' 
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Option 1: 

PERFORM procedure-name- 1 THRU procedure-name-2 

Option 2: 

PERFORM procedure-name- 1 THRU procedure-name-2 

Option 3: 

PERFORM procedure-name-1 THRU procedure-name-2 

Option 4: 

PERFORM procedure-name-1 THRU procedure-name-2 



RY \ numeric-literal-2 \ 
— I data-name-3 J 

Option 5: 



UNTIL condition-1 



PERFORM procedure-name-1 THRU procedure-name-2 



integer-1 [^..p^ 
data-name-l\™!ESl 



UNTIL condition-1 



VARYING data-name-1 FROM \ "T"'™"'"''~ i | 



\ numeric-literal-1 
I data-name-2 



VARYING subscript-name-1 FROM j fZ-ncLe-l \ 



WlYltnTloA UNTIL condition-1 I AFTER subscript-name-2 FROM \ l f^er-3 I Unteger-4 1 

— { data-name-2 ) I ^ / data-name-3 ) — ( data-name-4 ) 

UOTIL condition-2 ] [aFTER sabscHpt^am^ FROM j ^^.5 } BY j ^le-6 \ UNTIL «>~»to»^ ] 
READ fi le-name RECORD INTO area-name j IN VALID KEY [ any im P erative statement 
SEEK file-name RECORD 

subtract j £™ eJ [ [j t:ir 2 \ ■ ■ ■ ] ™>m 1 & e - n I [c^ng <*«—-«] [ rounded ] 

I ON SIZE ERROR any imperative statement | 

Option 1: 

WRITE record-name [ FROM area-name \ 

Option 2: f 

WRITE record-name [ FROM area-name~] j AFTER f 



a r»v a wriMr ^ integer LINES [ 
BEFORE ^ ALiVAW^iiNLr } mnemonic name) 



Option 3: 

WRITE record-name ("FROM area-namc\ INVALID KEY any-imperative-statement 

fThis verb option has been designated as part of Elective Cobol- 1961 and is not included in the General Information Manual. 
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1. Simple Relational Conditions * 

( IS [NOT] GREATER THAN ) 

I IS [NOT] LESS THAN V mvrm 

y IS [NOT] EQUAL TO j J a „^ me fe expression 



! data-name 
literal 
arithmetic expression 



data-name 
literal 



2. Sign Conditions 

C . i ■ -\ ( POSITIVE / 
I arithmetic expression I g rNOT] } NEGATIV E i 
J data-name ( j 2ERO" \ 

3. Class Conditions 

a * tc rwvri / NUMERIC \ 

data-name IS [NOT] | ALPH ABETIC / 

4. Condition-Names 
[NOT] condition-name 

5. Switch-Status-Names 

[ NOT ] switch-status-name 

Option 1 : 

IF conditional expression statement-1. 

Option 2: 

T „ , , istatement-2 \ f OTHERWISE 1 fstatement-3 \ 

Lt conditional expression ^ NEXT SENTENCE j ( ELSE j ( NEXT SENTENCE j 

Option 3 : f 

istatement-lO INVALID KEY ( . . , . 

\statement-4 AT END > J statement-6 I J OTHERWISE ( I statement-1 



iistatement-6 I j OTHERWISE ) [statement-1 \ 

(NEXT SENTENCE/ I ELSE j ( NEXT SENTENCE j 



I statement-5 ON SIZE ERROR ) ( NEXT SENTENCE ( ) ELSE 

any imperative siatement-B followed by any conditional 
statement-9 

* These entries are optional only under th e rules of implication described in the cobol 
General Information manual. They require a complete, simple relational expression 
before any implications are used later in the same conditional statement. 



t This conditional statement form has been designated as part of 
Elective Cobol-1961 and does not appear in the General Infor- 
mation Manual. 
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Sample Problem 

In this program, the calculation of the weekly and an- 
nual salary associated with a given monthly salary is 
coded in the cobol language. The monthly salary 
starts at $500 and is increased by $10 until it equals 
$1,000 (Figure 43). 
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* 


Vopucwe £wr£iEs. rue fwnev owucMLe toihb mtemLOLfui snretf is os£D. 
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PAGE 
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PROGRAMMER 


DATE 
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8 
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e 
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iii i i i ■ i 
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K 
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P,iA r , u ,£,z 


■V.s;?, 
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program SAMPLE pgo(,MM *3 


SYSTEM ; 

/4-(,0 


HEET J 0F r 


PROGRAMMER 


DATE 


DENT - s^.p,,,^-,^ 


SERIAL 
4 6 


l-^ 
z 

o 

7 


A .[B 
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^4 




Ll 
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, 
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Ill,,,, 
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Kz 
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i 
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, 
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A/,o,r,-,c,Oi'ei'Z,e,c,r, , 
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, 
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11 
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UL 
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l,*4 




VL 


i '^-A,s,H- r JPTA,'~r,o l f 


-,A-Art,i>AL.-,Pfiy, , 


,P,lAT,0,t?,E, ,<7,C,4,)X 7 ,9, y,A,2-,0,e 


ass AAA- A&-, , 


, , 
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Programming Considerations 

Aids 

Two aids to generating more efficient machine lan- 
guage coding and decreasing compiling time are the 
optional WORK4 and WORK5 file assignments [cobol 
(on Disk) Program Specifications and Operating Pro- 
cedures, IBM 1401, 1440, and 1460, C24-3242] . 

The use of WORK4 intersperses cobol source state- 
ments, by paragraph, with the Autocoder symbolic 
statements generated by the cobol compiler. The pro- 
grammer can then determine which .autocoder state- 
ments were generated for the respective cobol state- 
ments. 

The use of WORK5 produces a listing of the Auto- 
coder symbolic statements generated by the cobol 
compiler. It is valuable when warning diagnostics are 
generated. Errors can be corrected before the gener- 
ated autocoder program is assembled, thus saving 
the extra assembly time. 

Techniques 

cobol provides a convenient method of writing busi- 
ness-oriented programs. However, certain techniques 
can be used to produce more efficient machine lan- 
guage coding and increased compiling speed. 

The following considerations and suggestions are 
included to aid the programmer in obtaining a better 
COBOL-generated program. An original program (Fig- 
ure 43) required approximately 3,100 positions of core 
storage. By applying a few of the suggestions to the 
second program ( Figure 44 ) the core storage require- 
ment is reduced to approximately 2,350 positions of 
core storage, representing a saving of 25 percent. 

The changed statements utilize redefinition, equal 
decimal alignment, alphabetic compare, and the dele- 
tion of a subroutine caused by the statement write 
output-record from salary-record (Figure 43, part 
5 of 5, line 100 ) . It is recommended that the program- 
mer become familiar with these suggestions and apply 
them in the writing of cobol programs. 

Area Allocation in the Data Division 

The following rules govern when 1401 cobol sets 
word marks with data areas: 

1. Record areas (01 entries) always have a group 
mark with a word mark in the following position, 
and have a word mark in the high order position. 

2. Word marks will be set in the high order positions 
at the next level from the 01 entry. This will be 
02, or the next lower level if no 02 is present, unless 
occurs or redefinition is present. 

3. Subfields have word marks set only when their 
high order positions coincide with word marks set 
as in preceding item 2. 



4. A word mark is always set in the high order posi- 
tion at the 77 levels, but there is no group mark 
with a word mark set. 

5. No word marks are set for data fields within a 01 
entry which contains a redefines or an occurs, either 
at the 01 entry (implicit redefinition is allowable) 
or at any sublevel. 

If word marks are required but not present, they 
will be set continually and cleared for access to the 
field; this requires time and core. If word marks are 
present, they will be regenerated if removed. For ex- 
ample, if editing into a 02 area, a word mark will be 
reset each time. 

Tables 

Many programs require tables. Following are several 
considerations about table building and searching 
with 1401 cobol. 

1. Unless it is certain that a table will never change, 
the initial values in the table should not be estab- 
lished with the value clause. A better approach is 
to set up a card deck or tape file with one table 
entry and a sequence number on each record. Using 
the read verb, build up the table data during pro- 
gram initialization. This approach eliminates the 
need for recompilation or object-program patching 
in the event that the table changes in value or size. 

2. Before using the occurs clause and one or more 
levels of subscripting, weigh the alternate storage 
cost of naming each table entry and writing (for 
example ) : 

IF ARG = TAB-1 MOVE ENT-1 TO WORK GO TO FOUND. 
IF ARG = TAB-2 MOVE ENT-2 TO WORK GO TO FOUND. 

etc. 

3. Define long tables as a set of shorter tables. A few 
if statements are enough to isolate the relevant 
position, which can then be moved to a work area 
where the final pinpointing of the correct entry can 
be done. 

4. If the work area mentioned in the preceding item 
3 is n entries long where n is a power of 2 (such 
as 8 or 16), the if statements which are used can 
be written in such a way as to effect a binary 
search. In the case of a 16-entry work area, this 
technique can yield an answer after only four if 
statements. 

5. Sequential table searches require little program- 
ming effort and are efficient if the table can be 
arranged so that the most active items are at the 
beginning of the table. 

Move Verb 

1. move a to b, where A and B are equal length 
alphanumeric elementary items defined at either 
the 01 or 02 levels, gives the best possible coding. 
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All items with subfields are treated as alphanumeric 
by cobol, even if some or all subfields are defined 
as numeric. Only one 7 character instruction is 
generated as long as A and B are not redefined or 
subscripted. 

2. If both A and B are redefined items or items defined 
at 03 levels and up, eight additional characters of 
instructions are generated ( i.e. set word mark and 

CLEAR WORD MARK). 

3. Elementary items are treated as above unless they 
have an unequal number of decimal places. In that 
case, a greater number of instructions is generated. 

4. Unequal length elementary alphanumeric items 
are moved the same as equal length items when 
A is longer than B. However when B is longer, ad- 
ditional instruction characters are generated to 
blank the receiving field. 

5. move a to b causes cobol to include a special sub- 
routine when A and B are of unequal length or one 
or both contain subfields. The special subroutine is 
used because the mlc and mrcm instructions can- 
not conveniently handle this complex situation. 
Even when A and B are the same length, the sub- 
routine is still used if A is a 01 item and B is a 77 
item or vice versa. The subroutine may be avoided 
by writing a set of individual moves, redefining 
both A and B, or by making them the same length. 

6. move spaces to a and move zeros to a each gen- 
erate 11 characters of object code unless A is a 01 
level item with subfields. In that case, A can be 
redefined at an additional cost of eight characters 
of object code. 

7. When editing is involved in move a to b, the same 
rules about scaling, redefinition, and size apply. 
For example, when the A field has fewer decimal 
places than the editing picture describing B, many 
characters of coding are generated. If the scaling is 
identical for A and B, approximately one-third as 
many instruction characters are generated, plus the 
edit word. 

8. Avoid editing functions which cannot be handled 
by the edit instruction directly; cobol zeros, float- 
ing plus or minus, db, and single plus. A special 
subroutine is called to handle these cases. 

9. move all requires a special subroutine. Use a literal 
or constant of correct length to handle this case. 

If Statement 

1. When defining fields that are to be compared, con- 
sider the following: 

a. When at least one of the fields is a 01 item with 
subfields, a special subroutine is required. It is 
better to process such fields by comparing each 
lower-level item individually; or the group item 



can be moved to a hold area of equal size (not 
containing subfields), and then comparing, 
b. When numeric compares must be used because 
one or both of the fields are signed, attempt to 
arrange the record format so each item has the 
same number of decimal places. The fields do 
not have to be the same total length. 

2. In the statement if a = b, only one of the fields 
(A or B) need be defined as alphanumeric to get 
the more efficient alphanumeric compare instruc- 
tions generated. 

3. if a not greater than b . . . has the same meaning 
as if a less than b or equal to b . . . and the gen- 
erated instructions for the first statement require 
half the number of core positions. 

4. The statement if a is zero . . . generates more 
efficient coding when A is defined as numeric 
rather than alphanumeric. However, an even 
greater improvement can be gained by declaring a 
constant of zeros (named C, for example), and 
writing if a = c . . . which is twice as fast. 

5. Avoid the statements if a alphabetic and if a 
numeric whenever possible because they require 
subroutines in the object program. 

6. Avoid the use of all, high-values, low-values, 
spaces, and zeros in conditional expressions. They 
can easily be replaced by named constants. 

7. Subscripted names in an if statement will cause 
the compiler to include appropriate subroutines 
which often perform slowly at object time. Fre- 
quently it is better to use several if statements to 
perform a table look-up on a short table rather than 
use subscripting and the perform verb (or an 
equivalent loop). 

Arithmetic Verbs 

1. Avoid on size error . . . whenever possible. The 
generated coding to perform this test consists of 
up to 40 characters. 

2. add and subtract statements: 

a. The most efficient object coding is obtained for 
fields which have equal scaling. When two fields 
( A and B ) have equal scaling, the statement add 
a to b generates 7 characters of object code. 

b. Redefining, or using 03 levels or greater, will 
require 8 additional characters for each field so 
defined. 

c. Multiple operands are as efficient as the equiva- 
lent set of single statements, add a, b to c gen- 
erates 14 characters (assuming the requirements 
of 3a are met ) . 

d. add a to a is an economical way of multiplying 
A by two. Other sequences of add's and sub- 
tract's, sometimes with redefine's to achieve a 
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shift, can be devised to simulate a more complex 
multiplication. 
3. multiply and divide statements: 

a. multiply a by b giving c generates 21 characters 
of instructions if A, B, and C have no decimal 
places. When A, B, and C have decimals, and 
the number of decimals in C is not the sum of 
those in A and B, 42 characters of instructions 
are generated. 

b. In the preceding example, rounded generates an 
additional 7 characters. 

c. Less efficient coding is generated for a compute 
statement than for the equivalent set add, sub- 
tract, multiply, and divide statements. The rea- 
son for this is the need to retain up to 18-digit 
precision throughout the execution of a compute 
statement. Because the 18 digits can be on either 
side of the decimal point, and because one or 
two extra digits may be required for rounding, 
cobol allocates 40 digit accumulators for the 
storage of temporary results. 

Work areas are assigned only once per pro- 
gram. Thus the most complex compute state- 
ment determines the number of 40 character 
areas that will be needed for all compute's. 



Perform and Alter Statements 

1. The statement alter label to proceed to next- 
label generates 10 characters of coding. 

2. The statement perform calculation generates 18 
characters of coding at the point in the program 
where the perform occurs. In addition, calcula- 
tion is augmented by 4 positions for each perform 
which references it. 

3. calculation should be positioned in the source 
program at the point where it will be executed 
most frequently simply by falling through from the 
preceding paragraph. 

4. The option 2 statement, perform calculation 5 
times is efficient. Core requirements are about 45 
positions at the point in the program where the 
perform occurs and 4 positions additional at the 
end of calculation. No additional core or time is 
required when a data-name instead of a literal is 
used to indicate the number of times. 

5. Option 4 of the perform verb is handled best if 
the varying field is defined as alphanumeric and 
each of the fields in the expression has the same 
length. 

Input/Output Verbs 

1. The statements read into and write from each 
cause a move of the entire logical record. In many 



cases the use of these options is unnecessary be- 
cause processing can be done either in an input 
or an output record area as defined by the data 
records are clause in the fd's. When read into or 
write from must be used, ensure that the implied 
data move involves equal length areas. 

2. When using a card reader, read is faster and gen- 
erally smaller than accept. Similarly, write is bet- 
ter than display for printing and punching. 

3. It is not possible within cobol to assign the same 
input/output area to two files. Areas in the work- 
ing-storage section can be (and should be) 
shared, however. 

4. For card and printer files, input/output areas in 
addition to 001-080, 101-180, and 201-332 are as- 
signed. This is in anticipation of a possible conflict 
with the accept and display verbs, which use those 
areas also. 

5. The write verb for a printer fd does not clear the 
print area. Use move spaces to clear this area. 

6. Form 3 (unblocked, variable length) tape records 
are not permitted within cobol. If necessary the 
file can be defined as Form 1, and a simple Auto- 
coder sequence can be used to set and clear the 
gmwm at the end of the portion of data to be 
written. Form 4 usually offers better tape utiliza- 
tion. 

A common error in cobol programming is the 
assumption that a different area in working-storage 
must be defined for each record type in a given 
file. This may be avoided by (1) defining all pos- 
sible data records directly under the fd with one 01 
entry group per record type, or (2) defining the 
most common record type under the fd and all the 
others in a single area in working-storage which is 
redefined once for each record type. 

Optional COBOL Words 

cobol words, defined as being optional words in this 
manual, add nothing to the object program but do re- 
quire time for the compiler to evaluate. Compiling 
time can be decreased by avoiding these optional 
cobol words. 



Object Time Subroutines 

There are several cobol object time subroutines that 
may be generated. These routines are described in a 
separate bulletin which may be obtained with the pro- 
gram. Normally, the programmer should avoid cobol 
statements which cause these subroutines to be used. 
For the most part their inclusion is caused by either 
unusual language features or by complex data formats. 
Following is a list of these subroutines and the reason 
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why they are called and/or how they may be avoided. 

1. The Examine subroutine is included whenever 
the examine verb is used. It may be avoided as 
follows : 

a. For short fields, give each position a name by 
defining an appropriate number of subfields 
and using a set of if statements. 

b. For long fields, define a work area with one- 
character subfields and process portions of the 
long field there. 

2. Single, double, and triple subscript subroutines 
are included whenever a field is singly, doubly, 
or three-level subscripted. 

3. The Alpha Compare subroutine is included when 
a group item with subfields is compared to any 
data item. The subroutine may be avoided by 
redefining the field which contains subfields. 
The Figcon Compare subroutine is included 
whenever a record with subfields is compared to 
a figurative constant (high-value, low-value, 
quote, and all alpha-literal). This subroutine 
may be avoided by redefining the field with sub- 
fields and using a literal or constant. 
The If Numeric subroutine is included whenever 
an alphanumeric field whose size is greater than 1 
is tested for a numeric value. 
The If Alphabetic subroutine is included when- 
ever an alphanumeric field whose size is greater 
than 1 is tested for an alphabetic value. 
The Accept subroutine is included whenever the 
accept verb is used. To avoid this subroutine, 
define a file and use the read verb. 
The Display subroutine is included whenever the 
display verb is used. To avoid this subroutine, 
define a file and use the write verb. 
The Editing subroutine is included when editing 
requirements include cobol zero, floating + and 
— sign, single plus, and DB. It produces highly 
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specialized editing features. If possible, use only 
the standard editing features of the 1401, 1440, or 
1460. 

10. The Expin subroutine is included whenever an 
integer exponent is used (compute a = b**5). It 
may be avoided by writing successive multiply's. 

11. The Go To Depending subroutine is included 
whenever go to depending is used. This subrou- 
tine may be avoided by a set of if statements. 

12. The Move All subroutine is included when the 
all option of the move verb is used and a record 
with subfields is to be filled, a move statement or 
a set of move statements is preferable. 

13. The Move Record subroutine is included when 
ever a record with subfields is used in a move 
statement, except when the other field is a record 
(01 level) of equal length. This subroutine may 
be avoided by: 

a. Using a set of elementary move's. 

b. Redefining both fields to eliminate word 
marks. 

14. The Expni subroutine is included when raising 
an expression by a non-integral exponent (com- 
pute a = b**2.5). It is impossible to perform all 
the functions of this subroutine with other cobol 
statements unless the exponent is defined as an 
integer. For special purposes an Autocoder sub- 
routine may be a more practical solution. 

15. The Multiply subroutine (multy) is included 
whenever the object computer does not have the 
Multiply/Divide feature. The subroutine may be 
avoided by substituting a comparable set of add 
instructions. 

16. The Stop-literal subroutine (split) is included 
whenever a stop literal statement is used. The 
size of the subroutine may be reduced by declar- 
ing no-console-printer. 
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I.N,P,lf.T,-,0,U,T,P,U,T, S,E,C,T.I .ON,., ,,,,,,, , 


1,Z,9> 


F,l ,L,d- ,C0,IV,T,R,O,L ,..,,...,,,,,., , • 1 ■ t ■■■■••■■■ 1 . ■ ■ 


i.?»fl 


. , . \s.E,L,E.C,T, &.A,L,A,R,Y,-.F,I,L,E, ,A,S,S,I,6,N, ,T,0, ,1,1,03,-, P, , i ,,,,,,,,, , ,.,...., 


i..^i^ 


■ . , 's,E,L,£,C,T, *S,A,L,A,C,Y,-,F,I,L,£, ,A,S^,I,6,U, ,r,0, ,1,4,4,3,- . P, , , , , , ,,,,,, 


W 


, , ■ '.R,E,S,E,R,V,E, ,H,0, ,A I L,T,ER,N,A,T,E, ,AJ<,E.A, , i , , , , , 




i 




i 


> < 


i 






_i_i 


i 
_ i i i i i i i i i i i i i i . i i i i i i i i i i i i i i ■ i I i i i i i ■ i i i i i ■ i i i i i i i i i i i i i i i i i i i i i 



Duplicate entries. The entry applicable to the particular system is used. 



Figure 44. Sample Program #3 Revised (Part 1 of 4) 



IBM 



COBOL PROGRAM SHEET 



PAGE 


program SAMPLe PR06RAM #3 REVISED 


SVSTE '" 14&0 


SHEET p OF A 


M£ 


PROGRAMMER 


DATE 


IDERT. 73 _ . ^ ,80 


SERIAL! 

i 

4 6 " 


[A IB 

r 8 !l2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


<b,ia 


DA,r,A! iDil ,V,I ,5,1 ,0,N ,ii 


,,,,,,, 


i ' 




hub 


F,I,L,E! ,S,E,CiTiIiO,Ni ,i,i 


, , . . i . , 






0,3,(6 


F,Di i !s,A,L,A,R,Y,-,F,i,l-|E 


,,,,,,, 


. i , , , , . , i I , , i , . 




0.4.i(fl 


, , , Il.A.BiE.L, ,R,E,C,OiRiOi5, lAiPnt 


,O.M,l ,T,T,e,D 


,,,,,,,, i 




6,5X6 


, i , Id,A,T,A, ,R,E,C,0,RiO,S, ,A,R,G 


H,E^,D, l,N,6.- 


R,E,cO,R,D,*, ,S,A,L,A,R.Vr- .R,E,C,0 1 R,D„ 


,M,E,S,SA,6,E,-,R,ECO,R 


1>\(>x<P 






, , , , , ,,,,.1,, 




0,7,0 


0.I.. , !r),E,A,D,l,N,6,-,R,E,C,0,R,D,., , 




■ . . , , , , , . j . . , . . . i . i 




fi,g,d 


, , , M,£, ,F,I ,L,L,£,R, ....... 




, , ,P,l,C,T,t;,R,E, ,X,C,5.*,),-, , , , , 




0x1x<t> 


, , , !0£. ,VtE,E,K,L,V,-,H,E,A,D,I.N,6 


-,L,I ,N,£, , , 


, , ,P.I,C,T,U,R,E, ,A,f,fe,), 




1,<M> 


, , , !0,Z, ,F, l,L,L,e,R, 


, 


, . ,P,I,C,T.U,R,E. ,X,f,5,),., , , , , , 




L,m> 


, . , 'a,Z, AI,0,« r r,H,L,y,-,H,£,AJ).l,N 


6,-,L,l,«,E, , 


, , ,P,1,C,T,U,R,E, ,A,(,^),., , , , , , 




1,2,0 


, , , \0,L ,FiI,U-,EiRi , , 


,,,,,,, 


. , , ,P,I,C,T.U,R,E, .X.C.fc.) 




J, 3,0 


, , , \&Z, ,A,N,N,U,A,L 1 -,H,E,A,0,I,N,6 


-,L,I,N,E, , , 


. , ,P,I,C,T,U,R,E, ,A.,(,4,) 




1,4,0 


, , , ',01, ,F,I,L,L,E,R, ,,,,,,, 


I,,,,,, 


, , ,P,l,C,T,0,R,E, ,X,(,5,2,"),., , , , , 




1,5,0 


0,1, , !S,A,L,A,R,Y.-,R.E,CKD,R J D,., , , 









1.6,0 


, , , 10,2., ,F, l,L,L,6R., ,,,,,,, 




, , ,P,I,C,T,0,R,E, .X/,5,0,),., , , , , 




1.7,* 


, , , \<&Z, ,WtE,E,K,L,Y,- 1 D,E,T,A,l,L,- 


L,t ,N,E, , , , 


, , ,P,1,C,T,U,R,E, ,Z,2,£,., £,?,., , , , 




I,*|0 


. , , ',0,X, ,F.I,L,L,E,R, ,,,,,., 


,,,,,,, 


, . ,P,I ,C,T,U,R,E, ,^,(,5,'),., , , i , , 




\fl\Q 


, , , ',0X, iM,OiNiT,H,L 1 Y,-,D,E 1 r 1 A,l ,L 


-,L,I,N,E, , , 


, , ,P,l,C,T,t;,RiE, ,2,2,2, 2,-, l,i., , , 




t,a,6 


. , , l&Z. ,F,I,L,L,E,R, , , 




, , ,P,l,C,T,U,R,Ei ,X,(,5.) 




2,1 i0 


, , , !&Z. A,N.N,U,A,L,-,V,E,T,A,I,L,- 


L,l ,N,E, , , , 


, , ,Pi(,c,r,i;,AE, ,z,i,i,T.,z,.,t,z,., , 




Z.,2.,0 


, , , ',0,2, ,F,I,L,L,E,R , , , 




, , ,P,l,C,T,l>,R,E, ,X,r,5J.,),., . , , , 




2i2i^. 


0,1, , iiA,E,S,S,A,6,E,-,R,E,C,0,R,D,., , 




, , 




*r4i0 


, . . !0,Z. ,F,I .L.L.E.R, ,,,,,,, 




, , ,P,I ,C,T,U,RE, ,X,C5,2,),., , , , , 




2,5,0 


, , . '.0.7L, ,M,E,S,S,A,6 I E 


ill,,,. 


, , ,P,l,C,T,U,RiEi ,%,(,l.S,'), 





Figure 44. Sample Program #3 Revised (Part 2 of 4) 
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IBM 



COBOL PROGRAM SHEET 



PAGE 


program SAMPLE PROGRAM #3 KEViSEX 


mTE * /*6f0 


SHEET 3 0F 4. 


Ma 


PROGRAMMER 


DATE 


IOEMT. 73 . .. _ . «- -JS 


SERIAL £ ! 

|A >B 

4 6 7 8 !l2 16 20 24 28 32 36 40 44 48 52 96 60 64 68 72 


0U.<ZS 


. , . tiZ, ,F,I,L,l,E,R, , . , .P.I .OT.0.R.E. ,*.(s.2.), ■ , . . ■ 


0.2.(2 


W,0,RJ(',l 1N161- iSiT,OA,A,6,E, ,5,E,C,T,I tO,N,. t ■ . . i ... . 


0,3,(2! 


•7,7. . \H,A,SH,-,r,0,rA,L,-,C.O*/,N,r,e:K,-,W,E£,K,L,Y P,I.C,T.U,R.E. rt,C.6,).V,<?,9. ,\I,A,L,U,E, ,1,5, ,E,E,R,a., . 


0.4,0 


7,7, , '/ff£,E,K,L,Y,- ,B,U,C,k,E,r, ,R,E,V,E,F,f ,N,E,S. /t,A,S,H,-,T,0,TA,L,-,C,OUJA,T,E,R,-,VHE,e,K,i-,Y, , , , , , 


d.5/6 




<6&4 


1,1, , 'M,A,SJi,-,T,O,rA,U-,C,0,U,!AT,EJl>-,t\0,H,TSiJL,Y, , , ,P,I .C.T.MR.E. fl,( .6.) .V.9.?. ,VA,L,UJE, ,/ ,S, £,E,R,0, ., , 


<M,(t 


•7.7, . !M.O./Vir,H.i-,V.-,B.0,C,K,6T. ,R,E,D,e,F,l .N.E.S, ,H,A,Srfl.-,T,O,r.A.L,- 1 C,0 1 C/,W,T,&R,- Afl,N.T.«,L,Y, ,.,.,,,,. 


frfj 




ts.<t 


7,7, , \h,A>S,H,-,T,O.T,A,L.-£A,UM.T£,R,-,A.N,N,UA,L P,l ,C,T.U,R,E, ,9,(,i,.) ,V.<?,<7. iV,A.L,U,E, ,/,5, ,Z.,6R,0,., , 


lM- 


1,7. . !A,N.N,U,A,L,-.R,UiC.K,E,T. ,R.E.0,E,F.I,>l,E.5, ,HA.Srt.-,T.O.T.A.L,-,C.O,U.M,T.e.RT-,A.N.N.L/.A.l-. . , 


-Mrf* 




X3J> 


7.7, ■ IWiE.EiK.i-Y.-.P.A.Y ,,,.,,, ,P,I ,C,T,y,R.e, .<?,<?,<?. V,<?,<?, .V.A.UUE, ,1,5, .l.E.R.Q., , , 


ia<b 


7,7, . lM.O.(V.T.HiL,Yi-.PAiV, .....,...,,,,.,,. ,P,I .C,T.U,R 1 E 1 ,9, (.4.) .V.1,9. .V.A.L.U.E, , l,s, ,2.,E 1 R 1 o,. , , 


1.4.0 


7.7, . !A.N.N,0,A,L.-.PA,Y. , , , , P,I,C,T,U,R,£, ,t,(.S,),V,1,<i, .V.A.L.O.E, ,|,S, ,i£,RO,., , 


i.sa 


c,o.n.s!t.a.n,t, ,S,E,C.T,IS\,N... . . , . >...•... .,..,,,,, 


\.(*4 


7.7. , !H,A.S,H,- i r,0,T.A,L r ,o.F,-,V*E,E,K J L < Y.-,P,A,Y P,I,C,T,0,R,& ,X,(,g.), ,V,A,L,U,E, ,\0,<6,rjl, 2,6.6,9,', , , 


i,xd> 


7.7, . !H,A,S,H,-,T,O.T.A.L.-,O.F 1 -,M,o*/,r,H,L.V,-,P,A,Y P.I ,C,T,U,R.E. ,X.(,?,), ,\A,L,(J,E, ,N0,3,8,Z.,S,0,0,ri,', , , 


L.%.6 


7,7, , l«.A,S,«.-,r.0.rA.L,-,O.F.-.A.M/V,t/ 1 A.L,-,p,A,Y, , . . , .P.I.C,T,UiR.£, iX.d?,). ,V,A,L,U£, f A,5,<id,6,<t>,<b,<?,' , , , 


ltf,0 


p,r^,c\e,d,u,R£, ,D,I,V,I,S,I ,0,V, , , , 1 , 


i4& 




zd.a 


. 1 , \o,P,E,N, 0,U,T.PV,T, ,5A,L,A.R,Y,-,F,I,L,E, .,,,,, , , 


2.2.<z: 


, , . !M.O.l/.£. ,\W.E,E,K,L,Y,' , ,7,0, .W,E,E,k.L,Y,-,H,E,A,D,l,N,6,-,L,IME,., , , , , , , , 


2.3.(6 


, , . Im.o.v.e. ■* ,M.aw,r,«.L,y.', ,r,o, Mo.n,t,h,l,y,-,h,e,aj),i ,M6,-,/.,/,w,e , 


ZA,6 


. . . !m.O,V,E, , k A,N,N,U,A,L.', ,T,0, A/V.V.MA.i-,- ,H£A,D,I ,N,B,-,L,I ME , , , , , 


Z.%6 


. . . kR./.r,E. ,H>EAD>I,N,6,-,Z.E,C,0,*.J>, .B,£-,F,0,R,£, ,A,P,V,A,N,C,l ,M6, ,2, ./.,/, V.E5,., , 



Figure 44. Sample Program #3 Revised ( Part 3 of 4 ) 



IBM 



COBOL PROGRAM SHEET 



PAGE 
1 3 

AM 


program sAMPL-E PRO&RAM #3 "REVISED 


SYSTEM ±4-£><& 


SHEET ^ OF ^ 


PROGRAMMER 


DATE 


I0ENT. 73 . ,.„,,- 80 


SERIAL! 
4 6 7 


: 1 

A <B 

8 !l2 16 20 24 28 32 36 40 44 48 52 96 60 64 68 72 


fid,fl 


, . , 'M,0,V,B ,S,PAC,ES, .r.<3, A,E,A,D,I ,/WS.-,iP.SC.O,fcA ,,,...,,,, 






&,2,e 








p.3.0 


. . . \P,E,R,F,0,RM, ,CA,L,C,(AL,A,T,I ,VM,S, ,VA,RY,I ,N,6, M0,N,T,H,L,Y,- ,P,A,Y, ,F,R,0M, $5,0,6,. &,0, , , , , , 






0AtfS 


. . , !B,K ,M,l,0,.,0,0, ,UM,T,I,L MOMT.HJ-.Y, ,P,A,Y, ,1 ,S, ,6,R£,A,T,E,R, .TtfAJl/, ,10,0,6, . &0, 






f#5;0 


, , , Im.0,1/^; ,S,PA,C£,S, ,no, £,A,L,AJt,Y,-.R.E,C,ORJ>,., 






fi<N0 


r,c',S,T\-,H,A,S,H,-,Tjyr,A,LS,., ,,,,,, ..,...,.,..., 






|0i7i0 


. , . !/.F, M,E£,kJ-,Y,-,B,U.C,K,E,T. ,/ $, ,E,Q,UA,L, .T.O, ,M,A,S.H,-,T£>,T^,L,-,O.F.-ME,£,K,L,Y.-,PA,Y, ,-,,,, 






0I?I0 


, , , '.AMD, M0M,T,HJ-,Y,-,B,U,C*C,E,T, ,1 ,S, ,E,Q,U,A,L, ,r&, JtA,S,H,-,TiO,TA,L,- ,0,F,-MM,T,H,L,Y.- .PAX, , , 






0.?.0 


, , . \AN,/X ,A,A/.MUA,L,-,B,V,C,k.,ar, ,1,5, ,E\Q,UA,U ,T,0, JtA,S,H,-,T,0>T,A,L,- ,0,F,-,AM,M,AJ-,-,PA.Y, 






i.<ftd 


, , . l«,0,V,fi , , .r^Sil.£, ,VA,L,V,£,5, A.R.E, ,C.O,R,R,E.C,T,', ,T£), ,M,F,S,SA,6.E,, , , , , 








ju.«S 


. , . ',0,T.H,BR,W,/,S,e, , , , . , ,,.,.., 








1.2.(2) 


, , , 'm,o,v£, ,\,ta,b,l,e, ,v,a,l,u,e,s, a,r.,e, ,n,o,t, ,c,oj?,<?,5,c,t,' , ,r,a ja,e.,s,s,a,g,e,. 








1,3.0 


, , , \W,Rjl,T,£, AI,E,SSA,6£,-,R,E,C,aR,D, ,A,F,T,£,1Z ,AS>,V,A,MC,/,N,6, ,2, ,/., /.Mf.S, ., , 








i,4i(7! 


, , . !C/,0,S£. ,5AL,A,R,Y,-,F,I,L,E , , , , 








J.5".0 


, . . ',S,T,0,P, iRii/.M , ,,,,,, 








1.6.0 


CA,L,r\(J,LA,T,l ,0,f/,S„, , , , ,,,,.,,,.., 








1,7,0 


, , . \C,0M,P,U,T,E, ,W,E,£,K,l-,Y,-,P,A,Y, ,=. ,3. .*. *,0,W,T.H,L.V, -,P,A.Y, ./, .1.3, ..... 








.L&g. 


, . . 'CGM>P,U,T,e, ,A,MMUA,L.-,PA,Y, ,=. ,1,Z, ,*, M,ON,T,H,L,Y,-,P,A,Y, ,,,,,,,,, 


i . i . . . . . ■ , i 






J-tfl^ 


, , , y M,0,M,B ,UE,BK,L,Y,-,PA,Y, ,T,0, ,W,E,E.k,L,Y,- ,D£,T.A,I ,L,~ ,L, 1 ,N,E, , , , , 








P>i0 


. , , ^.V^, A».O.V,T,M,L.>'i-.P.A,y, ,T,0, MOM,T,H,UY,~ ,P,E,T,A,I ,L,-,L,I ,H,E, 


, , , .... i , , , 






2,1,0 


, , , '.AUJ.V.fi A,N,tAUAi-,-,P,A,Y, ,T,0, AM,N.UA,L.,-,P,E,T,A,l ,U-,L,I ,N,E, , , , , 


, , .. . . i i i , , , 






2.&0 


, , , UjJD, ,%E,E,k,i-,Y,-,PA,y, ,T.O, ,HA,S,(f,~.r£>,rA,L,-^,o,UMT.E:/?,-,W,E£-,K,L,Y. , , i 








23 .(Z5 


. . , AJ>X>, MOAf,T.H,L,Y.-,P.A.Y. .7lo. MASA.-,T&,TA,L,-,C,acJ,Mr.Etf,-M.OJS,T,H.L,Y, , 








VrfZ" 


, , . A,D,D, AMMUAJ-,- ,P,A,Y, .no, ,HA,S,H,-,r,O,TA,L,-<:0,U,f/,T,E,R,-,A,N,U.UAi-. . . . 








^10 


. . . k/?,/,r,£ ,s,A.i,A,R,f .-,*.£-.<: ,o.su?,., , u.1.1 ■ , 


1 1 1 1 1 1 1 1 1 i 1 1 







Figure 44. Sample Program #3 Revised ( Part 4 of 4) 
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ACCEPT 22 

Acknowledgment 4 

ACTUAL KEY 19 

Added Elective Elements of the Data Division 21 

Added Elective Elements of the Procedure Division 26 

Additional COBOL Words 29 

Aids, Programming 40 

Alter Statement 42 

Arithmetic Verbs 41 

ASSIGN 10 

Block Character-Count Field 12 

BLOCK CONTAINS 15 

Card Read-Punch Records 13 

Character Sets 29 

Class Conditions 29 

Clause Descriptions (File Section) 18 

COBOL Language 5 

COBOL Language Notation 5 

Conditional Statements 25 

Configuration Section 7 

Constant and Working Storage Sections 21 

Continuation of Alpha Literals 29 

CONTROL-SEQUENTIAL Access 18 

Creation Date 16 

Data Division 12 

Data Division Language Specifications 13 

Date Card 16 

Declaratives 21 

Deferred Elements of the Data Division 21 

Deferred Elements of the Environment Division 11 

Deferred Elements of the Procedure Division 27 

Device-Names 8 

Disk-Storage Device-Names 11 

Disk Trailer Labels 20 

DISPLAY 22 

Division, Data 12 

Division, Environment 7 

Division, Identification 7 

Division, Procedure 21 

ENTER 22 

Environment Division 7 

Exponents 25 

FD file-name 15 

Figurative Constants 29 

File-Control Paragraph 9 

File-Description Entries 14 

File-Description Entry — Punched-Card Files 17 

File-Description Entry — Tape Files 15 

File Section 14 

Form-1 Records 12 

Form-2 Records 12 

Form-3 Records 12 

Form-4 Records 12 

General Information 29 

Header Label Identifier 16 

HIGH VALUE(S) 29 

ibm 1401/1311 cobol Programming 7 

I-O-Control Paragraph 11 

Identification Division 7 



Index 

If Statement |. 41 

Input-Output Section 9 

Input/Output Verbs 42 

Label Information (Header Label Records) 16 

LABEL RECORD(S) 15 

LOW-VALUE(S) 29 

Machine Requirements 5 

Magnetic-Tape Device-Names 11 

Mass-Storage Files 17 

MEMORY SIZE (Object Computer) 8 

Move Verb 40 

Nested Conditional IF Statements 26 

NO-CONSOLE-PRINTER 8 

NO-DIRECT-SEEK 8 

NO-MULTIPLY-DIVIDE 8 

NO-OVERLAP 8 

NO-PRINT-STORAGE 8 

Object-Computer Paragraph 7 

OPEN 23 

Optional COBOL Words 42 

Perform Statement 42 

Printer Records 13 

Procedure Division 21 

Programming Considerations 40 

Punched-Card Device-Names 10 

QUOTE(S) 29 

RANDOM Access 17 

READ 24 

Record Character-Count Field 12 

RECORD CONTAINS 15 

Record-Description Entries 20 

Record Formats for Disk Files 13, 19 

Record Formats for Tape Files 12 

Record Formats for Punched-Card Files 13 

RECORDING MODE 15 

Reference Formats 29 

RETENTION CYCLE 17 

Sample Problem 37 

SEEK 24 

SELECT 10 

SEQUENTIAL Access 18 

SIZE 20 

Source-Computer Paragraph 7 

Special-Names Paragraph 8 

STOP 24 

Subroutines, Object Time 42 

Switch-Names and Conditions 9 

SYMBOLIC KEY 19 

Tables 40 

Tape Trailer Labels 16 

Technique, Programming 40 

THRU Option 21 

Today's Date 16 

VALUE 21 

Word Lists 29 

Word Marks 40 

Working Storage Section (Data Division) 21 

WRITE 25 
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